selecciona para ti 
los mejores relatos de 
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VACACIONES 



£^e acercan las vacaciones de verano y las 
noches estivales se prevén largas, cali- 
das y fantasiosas. Los ordenadores se- 
rán el centro de atención de todas las noctám- 
bulas miradas, conviniendo los aburridos 
mítines i veladas en fiestas multicolores de so- 
nidos, música y explosiones. 

Poco a poco, los joysticks ocupan sus 
puertos/puestos, el cansancio se va adue- 
ñando de nuestras muñecas y los reflejos de- 
caen al paso del tiempo. Llega el final y las 
despedidas, regresando el silencio a la paz 
del hogar, a la pantalla del monitor. 

El ordenador, compañero ¿le desventuras 
alienígenas, descansa de sus batallas galácti- 
cas interestelares. Las luces se apagan y una 
nueva etapa comienza, más intimista, más 
satisfactoria y provechosa: llegar al corazón 
del microprocesador, seducir al programa re- 
sidente en memoria, descubrir sus interiori- 



dades... Eso es lo que podríamos llamar se- 
ducción de un programa. 

La noche es un buen estadio para conse- 
guir records, olímpicos o mentales («mens 
sana in cor p ore sano»), un circuito donde co- 
rrer contra reloj contra otros programadores, 
un «campus» de soledad y duelo entre la má- 
quina y el hombre. 

En esas horas, el BASIC se convierte en 
delator y el código máquina en enemigo. Las 
sentencias chocan contra los errores sintác- 
ticos y los desensambladores son paladines 
de causas aun por defender. La lucha es ar- 
dua, cruel, salvaje,... los párpados sucum- 
ben al sueño, la mente obnubilada es presa 
de ciegas fantasías y lo que creíamos poder 
hacer se convierte en utopía... 

Una nueva mañana clarea en el horizonte 
y el RETURN del cansancio nos RESETEA 
hacia otra SUBRUTINA: la del sueño. 
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DIAGRAMAS 
DE BARRAS 



■ 


UN DIAGRAMA DE BARRAS 


■ 


INTRODUCCION 




A TODO COLOR 




DE LA INFORMACION 


■ 


GENERALIDADES 


■ 


CORRECCION DE LOS DATOS 


■ 


UTILIZACION 


■ 


TRAZADO DEL GRAFICO 




DEL PROGRAMA 


■ 


ESCALADO DE LOS EJES 



Para efectuar un análisis instantáneo 
facilita las cifras y, olvidándote de las 
matemáticas, observa cómo tu micro las 
convierte en un diagrama de barras a 
todo color y con un aspecto totalmente 
profesional. 

Todo el mundo habrá visto referen- 
cías de los sistemas informáticos de 



oficina que muestran elaboradas re- 
presentaciones de datos tales como ci- 
fras de compras e inventarios. Esta 
clase de información, cantidad de ci- 
fras vírtualmcnte incomprensibles, se 
presenta mejor en forma de gráfico o 
de tabla, que se comprende más fácil- 
mente de una ojeada. Prepararlo a 
mano es tedioso, pero precisamente es 



el tipo de trabajo en el que destacan 
los ordenadores de oficina, con su ca- 
pacidad para dar una presentación a 
todo color en cuestión de segundos. 

La presentación de dichos datos no 
sólo se limita a las máquinas de ofi- 
cina, sino que también es una de las 
aplicaciones prácticas de un ordena- 
dor doméstico. 
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No es probable que el usuario me- 
dio de dicho tipo de ordenadores ma- 
neje algo parecido a la vasta cantidad 
de información generada incluso por 
un negocio pequeño, pero hay muchas 
cosas que pueden analizarse útilmente 
en un ordenador. Por ejemplo, ¿se in- 
crementaron ios ingresos y ios gastos 
hacia fin de año, o disminuyeron los 
gastos? ¿Has gastado más en software 
informático (o en otros artículos tales 
como revistas, entretenimiento y con- 
sumo) durante el otoño que durante el 
verano 9 ¿Cuándo sobrepasan tus aho- 
rros un cierto nivel y durante cuánto 
tiempo permanecen así? 

Junto a dichas aplicaciones de tipo 
comercial hay toda clase de temas de 
interés general, quizás datos y cifras 
relacionadas con un hobby, que po- 
drían ser analizados y representados. 
Dichos temas van, por ejemplo, desde 
las cifras de asistencia en el club local 
hasta los niveles de precipitación o de 
las mareas. Otras cosas que puedes 
desear representar gráficamente son 
resultados deportivos, o el tamaño de 
una colección en crecimiento. 

El sencillo programa ofrecido aquí 
te permite preparar rápidamente una 
representación visual de cualquier es- 
tadística que varíe a lo largo de un pe- 
ríodo de tiempo. Los ejes del gráfico 
se ajustan automáticamente, por lo 
que puedes entrar cifras semanales, 
mensuales o anuales. De hecho, pue- 
des utilizar cualquier unidad de 
tiempo , 

Puedes mane jar valores que lleguen 
a cualquier magnitud, unidades, de- 
cenas, centenas, millares o incluso mi- 
llones, si tus cálculos llegan tan lejos. 



UTILIZACION DEL PROGRAMA 

AI lanzar el programa, visualiza un 
«menú» o lista de opciones. Seleccio- 
nando la opción de introducir nuevos 
datos, se te invita a indicar los nom- 
bres de los ejes. Los rótulos que te- 
clees aparecerán en el gráfico cuando 
se dibuje el mismo. Cuando introduz- 
cas dichos rótulos, recuerda hacerlo 
correctamente. El número de barras 
representando semanas, meses, años o 
lo que sea, se representa a io largo del 
eje x, mientras que el valor de las ba- 




rras, pesetas o cualquier otra unidad, 
se representa a lo largo del eje y. 

A continuación se te pide que intro- 
duzcas el número de barras a trazar. 
Puedes trazar un máximo de 30 ba- 
rras. 

Luego te pregunta los datos. Im- 
prime el número de cada barra y te 
pide que introduzcas el valor, que 
puede ser positivo o negativo. Dichos 
valores van de -1038 a 1038. 

Una vez introducido el último valor, 
se vuelve al menú de modo que pue- 
das elegir o bien corregir los datos, 
modificando los valores introducidos 
en caso de que hayas cometido algún 
error, o bien trazar el gráfico. Sí eliges 
corregirlos, los valores se imprimirán 



correlativamente en la pantalla. De- 
bes pulsar cualquier tecla excepto la 
tecla RETURN para dejar sin cam- 
bios el valor y visualizar el siguiente, 
o pulsar la tecla RETURN e introdu- 
cir a continuación el nuevo valor. 

Cuando estés satisfecho con los va- 
lores, selecciona la opción de visuali- 
zar o trazar el gráfico. 

Puedes elegir entre un gráfico es- 
calado o un gráfico a escala completa. 
La opción de gráfico escalado visua- 
liza el gráfico con las dimensiones co- 
rrespondientes al e je y redondeadas a 
un máximo de diez, cíen, mil, etc. se- 
gún el valor máximo de los datos, pero 
el gráfico no llena la totalidad de la 
pantalla. La opción de pantalla entera 
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visualiza el gráfico sobre toda el área 
de la pantalla del televisor, pero im- 
prime los valores reales de los datos 
(no los valores escalados) a lo largo 
del eje y. 

Para mayor claridad, las barras tra- 
zadas van separadas por un pequeño 
espacio o por una barra coloreada. 



BB-53280;G0T0 200 

1 CLR:BB = 53280:FF=1 

2 POKE BB,0:POKE BB + 1,0 

3 Q$ = "[ 25*CRSR ABAJO]" 

4 INPUT "[SHIFT+CLR/ 
H0ME1N0MBRE DE LA 
GRAFICA"; N$ 



INPUT "SHIFT + CLR/ 
H0ME][CTRL+8]NUMERO 
DE BARRAS. (1-30)"; XX 
1F XX<1 OR XX>30 THEN5 
DIM A(XX),B(XX),C(XX) 
FOR Z= TO 30 
IF XX*Z>30 THENX1=Z- 
LGOTO 11 
NEXT Z 

PRINT "[SHIFT+CLR/ 
H0ME1ENTRAR DATOS 
BARRAS:[CRSR ABAJO]" 
FOR Z=l TO XX:PRINT 
"BARRA N."; Z;:INPUT 
C(Z):NEXT Z 
13 A = 0:B = 0:C = 0:D = 



6 
7 
8 
9 

10 
11 



12 



14 
15 
16 

17 

18 

19 

20 



FOR Z=l TO XX 
IF C(Z)>A THENA=C(Z) 
IF C(Z)<B THENB=C(Z) 
IF C(Z)<0 

THENB(Z) = C(Z):A(Z) = 
IF C(Z)>0 

THENA(Z) = C(Z):B(Z) = 
NEXT Z 
C=A + ABS(B) 
22 GOTO 200 

24 POKE BB,5:P0KE BB + 1,0 

25 PRINT "[SHIFT+CLR/ 
HOME]"N$ 

26 FOR Z=2 TO 22 

27 POKE 1033 + Z*40,64:POKE 
55305 + Z*40,6 
POKE 1032 + Z A 40,45:POKE 
55304+Z*40,3 
NEXT Z 

FOR Z=l TO XX:W=0:CO=8 
IF B(Z)<0 THENC0=2 
FOR ZZ = B/D TO A/D 
33 W = W + 1:IF iNT (ZZ)<>0 
THEN38 
FOR G-l TO XI 
POKE (1953- 
X1) + (Z*X1 + G)-W*40,64 
POKE (56225- 
X1)+(Z*X1+G)-W*40,7 
NEXT G:GOTO 43 
FOR G=l TO 

X1:CA-227:CC = C0:1F G<> 
1 AND G = X1 THENC0=1 
IF ZZ<0 THENCA=228 
¡F B(Z)/D>ZZ OR A(Z)/D<ZZ 
THEN43 
POKE {[1953- 

X1]+Z*X1 + G)-W*40:CA:POKE 
((56225- 

X1)+Z*X1+G)-W*40,CO 
CO = CC:NEXT G 
POKE BB:RND(l)*2 + 5 
NEXT ZZ,Z:POKE BB,5 
PRINT "I.CLR/ 
H0ME][CTRL+6][CRSR 
ABAJO]"; LEFT$(Q$,20- 
ABSÍB/D)) 

FOR Z=0 TO A STEP D*2:IF 
C=<10 AND INT (Z)oZ 
THEN PRINT "[ 3 A CRSR 
ARRIBA]":GOTO 48 
PRINT INT (Z)"[ 3*CRSR 
ARRIBA]" 



28 

29 
30 
31 

32 



34 
35 

36 

37 
38 



39 
40 

41 



42 
43 
44 
45 



46 



47 
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Commodore 64: cada barra produce un efecto. 



7*CRSR 
ABAJO][ 
5*CRSR 
DCHA.l 
VALOR: 
UNIDADES 
ENTRADAS" 
150 PRINT 

"[CTRL + 7H 

10*CRSR 

ABAJO][ 

5*CRSR 

DCHA.] 

BARRAS: 

DIAS/ 

SEMANAS/ 
MESES" 



48 NEXTZ 

49 PRINT "[CLR/HOME][CRSR 
ABAJO]"; LEFT$(Q$,20- 
ABSÍB/D)) 

50 FOR Z=0 TO B STEP-D*2:IF 
C=<10 AND INT (Z)OZ 
THEN PRINT "[CRSR 
ABAJO)":GOT052 

51 PRINT INT (Z) "[CRSR 
ABAJO]" 

52 NEXTZ 

53 POKE 198,0 

54 GET A$:IF A$ = "" THEN54 

55 GOTO 200 

100 POKE BB,l:POKE BB + 1,1 

103 |F FF=0 THEN500 

105 PRINT "[SHIFT+CLR/HOME] 

[CTRL+5] [CTRL+9] 

"TAB(10) "DIBUJO GRAFICO 

DE BARRAS" 
110 PRINT "[2*CRSR ABAJO] [ 3 

ESPACIOS] [CTRL+6] \ " 
115 FOR Z=l TO 15 
120 PRINT "[ 3 

ESPACIOSHSHIFT+B] 

":NEXT Z 
125 PRINT"! 3 

ESPACIOS][CTRL + 3] 

[SHIFT+W] [CTRL+4)", 
130 FOR 2=1 TO 30 
135 PRINT »»_'■"; : N EXT Z 
140 PRINT ">" 
145 PRINT"[CLR/ 

H0ME][CTRL+3][ 



155 PRINT"[3*CRSR 
ABAJO][CTRL+5irCTRL + 9] 
"TAB 

160 5)"PULSAUNATECLAPARA 

SEGUIR" 
160 POKE198,0 
165 WAIT198,1 
170 G0T024 

200 POKEBB,6:POKEBB + l,6 
210 PRINT"[SHIFT+CLR/HOME][ 
7*CRSRABAJOT'TAB{15)" 
[CTRL+4][CTRL+9][2 
ESPACI0S0PCI0N][2 
ESPACIOS][CRSR 
ABAJOHCTRL+21" 
220 PRI NTTAB( 12)" 1 ENTRAR 
DATOS" 

230 PRINTTAB(12)"2GRAFICOS 

AESCALA" 
240 PRINTTAB(12)"3VER/ 

EDITARDATOS" 
245 PRINTTAB(12)"4GRAFICOS 

AMPLIADOS" 
250 PRINTTAB(13)"[CRSR 

ABAJ0][CTRL+4][CTRL + 9] 

ESCOGERFUNCION?" 
260 POKE198.0 
270 GETA$ 

280 ONVAL(A$)GOTO400,700, 

300,600 
290 GOTO270 
300 IFFF=0THEN500 
305 POKEBB,7:POKEBB+l,7 
310 PRINT"[SH1FT+CLR/ 

HOME][CTRL + 5]"N$" 



DATOS:" 
315 PRINT, "[CRSR 

ABAJ0][CTRL + 3]BARRA", 

"[CTRL + 7]ALTURA[CRSR 

ABAJO]" 
320 FORZ01TOXX 
325 IFA(Z)O0THENPRINT, 

"[CTRL + 7]"Z, 

"[CTRL + 31"A(Z):GOT0335 
330 PRINT, "[CTRL+3]"Z, 

"[CTRL + 7]"B(Z) 
335 POKE198.0 
340 GETA$ 
345 IFA$ = ""THEN340 
350 IFA$<>CHR$(13)THEN 

370 

355 PRINT"[CRSR 

ARRIBA][CTRL+11"TAB{18) ; 
360 INPUTC(Z) 
365 GOT013 
370 NEXTZ 
375 GOTO200 

400 POKEBB,13:POKEBB + l,13 

410 PRINT"[SHIFT+CLR/HOME][ 
8*CRSRABAJ0][6*CRSR 
DCHA.][CTRL+6] 
PULSARtCRSRDCHA.] 
([CTRL+7]E[CTRL+6]) 
NTRARDATOS,([CTRL+7]M 
[CTRL+6DENU" 

420 GETA$ 

430 IFA$-"E"THEN1 

440 IFA$="M"THEN200 

450 GOTO420 

500 PRINT"[SHIFT+CLR/ 

H0ME][CTRL+1]"TAB(16) 
"NOHAYDATOS!" 

510 FORZ=1TO500:NEXTZ 

520 GOTO200 

600 IFFF-0THEN500 

605 IFC<=10THEND=.5:GOTO 
100 

606 IFC< = 20THEND=1:GOTO 
100 

610 D=C/20:GOTO100 
700 IFFF=0THEN500 

705 IFC< = 10 
THEND-1.25:GOTO100 

706 IFC< = 20THEND = 2.5:GOTOO 
100 

710 D=C/20+9:D = DM:D=INT 
(D)*10:GOTO100 
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En INPUT estamos convencidos de que aún 
puedes hacer muchas más cosas con tu 
ordenador Sin duda, muchos lectores estaréis 
utilizando vuestro micro para funciones de lo más 
variadas, en unos casos; pintorescas, en otros; 
mientras que algunos üstillos habrán podido 
utilizarlo para resolver tareas complejas. Es lógico, 
modificando programas y variando los periféricos 
nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 
sus lectores y por eso ha organizado el «Concurso 
de Aplicaciones y Utilidades», en el que puede 
participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefacción de tu casa, gobierna 
un robot, dirige un pequeño negocio, organiza ta 
maqueta de tu tren eléctrico, o cualquier cosa in- 
teresante u original; envíanos información gráfica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive. 

Todo ello habrá de venir acompañado por un 
texto que aclare cuál es su objetivo, el modo de fun- 
cionamiento y una explicación del cometido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentará en papel de tamaño folio y me- 
canografiado a dos espacios. No importa que la re- 
dacción no sea muy clara y cuidada; nuestro equipo 
de expertos se encargará de proporcionarle ta forma 
más atractiva posible. 

UN JURADO propio decidirá en cada momento 
qué colaboraciones reúnen los requisitos adecuados 
para su publicación, y evaluará la cuantía del pre- 
mio en metálico al que se hagan acreedoras. 

No olvidéis indicar claramente para qué ordena- 
dor está preparado el material, así como vuestro 



nombre y dirección y, cuando sea posible, un telé- 
fono de contacto. Entre todos los trabajos recibidos 
durante los próximos tres meses SORTEARE- 
MOS: 



• 



Un premio de 50.000 ptas. 
Un premio de 25.000 ptas. 
Un premio de 10.000 ptas. 
en material microinformático a elegir por 
los afortunados. 

¡No os desaniméis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas están re- 
visadas con el máximo interés. 

INPUT C0MM0D0RE 

Aribau, 185. Planta 1. a 
08021 BARCELONA 



NOTA: INPUT no se responsabiliza de la devolución del ma- 
terial que no vaya acompañado por un sobre adecuado con el 
_ franqueo correspondiente. 
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GRAFICOS DEFINIDOS 
POR EL USUARIO (II) 



He aquí dos nuevos personajes — una 
serpiente y un mono — para completar 
el escenario de la jungla, más algunas 
ideas para animar el cuadro y para aho- 
rrar memoria. 

En los capítulos anteriores de esta 
serie habrás visto la manera de definir 
una gran cantidad de figuras en tu or- 
denador y has empezado a formar un 
cuadro de una escena de la jungla para 
utilizarlas. 

El programa de la escena de la jun- 
gla está formado por secciones, en las 
que se definen en cada una los UDG. 
Cada sección forma parte del cuadro 
— el cocodrilo, el elefante, los árboles, 
etc. — . La segunda parte del programa 
que sigue añade una serpiente y un 
mono y termina el fondo. 

Si has almacenado la primera parte 
del programa en cinta o en diskette, 
podrás cargarlo en el ordenador, por- 
que este programa requiere la primera 
parte para funcionar. 

Las líneas adicionales de datos que 
necesitas para definir las imágenes se 
escriben después del programa prin- 
cipal. En primer lugar escribe estas lí- 
neas: 

51 FOR Z=144 TO 759:READ 
X:POKE 13312 + Z,X:NEXT Z 

100 M$="[CRSR 

ABAJ0][CTRL+9][ 2*CRSR 
DCHA.]/0[ 2*CRSR 
DCHA.]12[CRSR ARRIBA]. [ 
2*CRSR ABAJO][ 9*CRSR 
IZQDA.]" 

110 M$=M$ + "[CTRL + 9][CRS 
R DCHA.]345[CRSR DCH 
A.]67[CRSR ABAJO] [ 6* 
CRSR IZQDA. ]89[ 2*CRS 
R DCHA.]:;<[CRSR ABA 
J0][ 6*CRSR IZQDA. ] = >[ 
CRSR DCHA.]?[SHIFT+*][ 
SHIFT+A][SHIFT+BJ[CRS 
R ABAJOH 7*CRSR IZQD 



A.][SHIFT + C][SHIFT+D][S 
HIFT + E][SHIFT + F][SHIFT 
+ G][SHIFT+H][SHIFT + I][ 
SHIFT + J][CRSR ABAJO] 
[ 8*CRSR IZQDA.]" 

120 M$ = M$ + "[CTRL + 9][SHIF 
T+K][ 4*SHIFT+L][SHIFT 
+ M][SHIFT + N][SHIFT+0] 
[CRSR ABAJOH 9*CRSR I 
ZQDA.][SHIFT + P][SHIFT+ 
Q][SHIFT + R][ 2*CRSR D 
CHA.][SHIFT+S][SHIFT + T 
][SHIFT + U][CRSR ABAJO] 
[ 9*CRSR IZQDA. ][SHIFT 
+ V][SHIFT + W][SHIFT + X][ 
SHIFT + YK 2*CRSR DCHA 
.][SHIFT + Z][SHIFT+ +][C 
RSR ABAJO][ 6*CRSR IZ 
QDA.][COMM+ -][SHIFT 
+ -][CRSR ABAJO]] 2*C 
RSR IZQDA. ][SHIFT+ f ][ 
CTRL + 4]" 

140 PRINT "[ 3*CRSR ABAJO 
][CTRL + 2][ 4*CRSR DCH 
A.][CTRL + 9]RUX[ t !"C$ 
"[ 4*CRSR DCHA.][CTRL 
+ 9]SVY«-"CHR${34) "$&( 
*,"C$"[ 4*CRSR DCHA.Jt 
CTRL + 91TWZ] #%') + -" 

155 POKE 1088,81 

175 TT=T:PRINT 

"[CLR/HOME]"TAB(T) 
"[CTRL+3]"M$:F0R D=l 
TO 50:POKE 55360, 
RND(D* 7+1.-NEXT 
D 

180 PRINT "[CLR/HOME]"TAB(T) 
"[CTRL+1J"M$ 

A continuación escribe estas líneas 
de datos para definir fas formas de los 
UDG. 

400 REM SERPIENTE 
410 DATA 0,0,0,0,0,0,3,14,31, 
31,63,67,65,254,254,22 



5,71,63,0,0,0,0,0,0,0 
420 DATA 0,0,0,0,255,12,28,2 
8,28,254,143,1,0,4,248 
208,224 
1430 DATA 0,0,0,0,0,0,0,0,0,0, 

0,128,240,56 
1440 DATA 52,99,225,225,225, 
96,47 t 31,14,6,2 r l,0,0,| 
,0,0,0,0,0,3,5,63, 
127 

1450 DATA 255,225,240,248,2 
52,255,255,126,60,28, 
124,247,247,115,31,1, 
0-0-0,0 

1460 DATA 255,191,159,143,1 
99,194,127,64,128,128 
,64,63 

1470 DATA 48,112,248,249,25 
3,255, 189,255, 0,0,0,0, 
192,252,190,63,63,24/ 
240 

1480 DATA 9,5,7,5,249,67,243 
,251,255,252,238,239, 
255 

1490 DATA 192,224,208,223,2 
24,129,193,227,243,24 




lO INPUT 



■ 


DATOS PARA COMPLETAR 




DE ALTA RESOLUCION 




LA ESCENA DE LA JUNGLA 


■ 


ANIMACION DE LOS 


■ 


UNA SERPIENTE Y UN MONO 




CARACTERES 


■ 


COMPLETANDO EL FONDO 


■ 


ALMACENAMIENTO DE DATOS 


■ 


EMPLEO DE GRAFICOS 




EN CODIGO MAQUINA 




7,255,248,240,224, 
192 

1500 DATA 0,0,0,0,255,129, 19 

5,199,199 
1510 DATA 239,239,255,0,0,0, 
0,0,0,0,0,128,248,31,1 
40,158,191,191,255,0, 

0,0,0 

1520 DATA 0,0,0,1,15,62,206, 
30,61,121,243,247,247 
,63,15,3,0 
1530 DATA 30,127,191,95,93, 
61,250,240,194,252,19 
4,192,192,224,224,240 
1540 REM MONO 
1550 DATA 1,2,4,8,16,32,64,1 
28,0,0,0,3,31,63,127,2 
52,0,0,0,224,248,252,2 
52 

1560 DATA 62,3,15,15,15,15,1 

4,14,12 
1570 DATA 3,142,240,192,128, 
0,0,0,1,1,3,3,3,3,3,3,2 
48,240,224,224, 
192 

1580 DATA 192,192,192,30,14, 
110,76,56,0,0,0,0,0,0,0 
.0,0,0 

1590 DATA 1,28,28,56,56,112, 

112,224,224 
1600 DATA 3,3,1,1,1,0,0,0,19 
2,224,224,240,248,248 
,252,126,3,7,15,31,63, 
62 

1610 DATA 126,252,192,192, 
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128,0,0,0,3,7,0,0,0,0,0, 
0,128,223 
1620 DATA 127,63,31,31,15,7, 
7,3,0,128,128,192,192, 
192,224,240,252,126,1 
26,127 

1630 DATA 63,63,31,31,15,15, 
7,3,3,131,131,131 

1640 DATA 255,255,231,231,2 
55,252,172,183,128,19 
2,224,224,224,224,224 
,224 

1650 DATA 1,1,0,0,0,1,3,7,248 
,255,255,255,255,255, 
255,255,0 

1660 DATA 255,255,255,255,2 
55,255,255 

1670 DATA 15,255,255,255, 

255,255,255,255,199,2 
55,255,255,255,255,25 
5,255 

1680 DATA 223,239,255,255,2 
52,128,0,128,224,240, 
248,248,240,96,0,0,0,0 
,200 

1690 DATA 232,248,248,120,1 
12 

1700 DATA 7,15,15,31,31,63,6 
3,255,255,255,255,255 
,255,255,255,192,224, 
224 

1710 DATA 224,224,224,192,1 
92,0,0,1,1,3,7,14,60,24 
0,224,192,128,128,0,0, 


1720 DATA 0,0,0,0,0,3,15,31, 
63,63,63,63,126,254,2 
52,240,191,191,63,63, 
63 

1730 DATA 63,63,63,15,7,7,7, 
7,7,7,7,192,131,135,15 
9,191,255,254,252 

1740 DATA 252,248,240,224,1 
92,128,0,0,0,1,3,7,6,6, 
4,0,127,254,240,224 

1750 DATA 64,64,0,0,192,0,0, 
0,0,1,1,3,63,31,63,127, 
254,252,248,240 

1760 DATA 7,3,0,0,0,0,0,0,24 
0,192,0,0,0,0,0,0,7,7,1 
5,31,31,31,23,23, 
224 

1770 DATA 192,128,0,0,0,0,0, 



7,6,4,0,0,0,0,0 



Todas estas adiciones se adaptan 
perfectamente a la primera parte del 
programa, y lo amplían para añadir al 
mismo más figuras. La línea 51 añade 
otro bucle FOR ... NHXT para intro- 
ducir los datos adicionales de los nue- 
vos caracteres. Las líneas 100 y 120 
crean el mono, la línea 140 crea la ser- 
piente y la línea 155 coloca una luna 
en el escenario. Para ahorrar memo- 
ria, los UDG del mono se asignan a la 
variable M$. Por carecer de comandos 





BASIC de alta resolución, la luna se 
representa con gráficos corrientes. 



EL CUADRO COMPLETO 

Como podrás ver cuando ejecutes el 
programa, la pantalla queda ahora 
llena de objetos y personajes, con lo 
que e! cuadro parece completo. La 
serpiente, el mono y el sol son añadi- 
dos por las líneas adicionales. 

También puedes añadir más elefan- 
tes, árboles o cocodrilos si lo deseas, 
pero en cualquier caso, dispones de un 
juego completo de personajes para 
utilizarlos en tus propios cuadros. 



SIGUIENTES PASOS 

La gama de variaciones que puedes 
obtener con los UDG es casi ilimitada. 
Además de cambiar el número de ser- 
pientes, de árboles, de monos, etc., 
también puedes utilizar los caracteres 
gráficos para que formen estas imá- 
genes para otras cosas. 

Un ejemplo evidente consiste en 
emplear las copas de los árboles con 
un color diferente (como puede ser el 
blanco) para representar nubes, o 
como arbustos. 

En estos casos deberás tener en 
cuenta los contrastes de color. 
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Supon que quieres emplear copas 
de árboles como arbustos: si colocas 
los arbustos en las colinas, como éstas 
son verdes, dichos arbustos no se ve- 
rán, a menos que desees que los ar- 
bustos sean rojos, por supuesto. 

ANIMACION DE CUADRO 

Las ventajas de crear imágenes con 
UDG no termina con las posibilidades 
de modificar la escena una vez termi- 
nada, sino que, con muy pocos cam- 
bios, puedes convertirla en un cuadro 
animado. 

Por ejemplo, para animar los ani- 
males, puedes definir uno o más ca- 
racteres adicionales: otra trompa para 
el elefante, una serpiente ,con la ca- 
beza levantada o el mono comiéndose 
un plátano son sólo algunas de las mu- 
chas posibilidades. 

Una vez hayas decidido qué quieres 
que hagan los animales y hayas defi- 
nido los UDG adicionales, te bastará 
con seguir el procedimiento para la 
animación descrito en los capítulos an- 
teriores. 

Empleando una serie de UDG dis- 
tintos para las diferentes posiciones y 
presentándolos sucesivamente, el mo- 
vimiento se podrá hacer mucho más 
real, más divertido, más amenazador, 
o como desees. 

COMO SE ENCAJAN LOS UDG 

Si vas a emplear ta animación con 
UDG o a crear imágenes por ti mismo 
podrás encontrar en estas páginas los 



Sé 



dibujos de la serpiente y del mono y 
el del cocodrilo en el capítulo anterior. 

También se indican algunas posibles 
sustituciones de datos para el elefante, 
que es posible que desees emplearlas 
para la animación. 

Mientras los animales parecen que- 
dar limitados a escenas de jungla o de 
zoológico, los árboles, las nubes y los 
arbustos podrás utilizarlos en casi to- 
dos los cuadros que desees realizar 
con un programa. Con métodos simi- 
lares podrás dibujas por ti mismo las 
escenas que desees. 



AHORRANDO MEMORIA 



El programa descrito emplea una 
gran cantidad de UDG para demos- 
trarte la forma de utilizar tu ordena- 
dor más allá de sus límites, así como 
proporcionarte algunos personajes y 
figuras que puedes emplear en tus pro- 
pios cuadros. 

Pero si deseas o necesitas crear un 
cuadro impresionante con bastante 
menos UDG, puedes utilizar el mismo 
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UDG una y otra vez. Por ejemplo, 
puedes crear una manada entera de 
elefantes. O si en tu cuadro has in- 
cluido una pared, podrá cubrir una 
gran parte de la pantalla con sólo dos 
UDG. 

Planificando cuidadosamente lo que 
deseas dibujar, podrás crear con mu- 
cho éxito cuadros muy interesantes 
con un número de UDG sorprenden- 
temente reducido. Sin embargo, como 
es bastante normal que al cabo de un 
tiempo dispongas de un gran número 
de UDG, las únicas ventajas que pue- 
den obtenerse «economizando» los 
UDG son el tiempo que ahorras al no 
tenerlos que teclear y en la memoria 
ocupada por los datos. Como el pro- 
grama emplea una gran cantidad de 
memoria para almacenar los datos, 
puedes ahorrar mucha de esta me- 
moria almacenando los bytes que for- 
man los UDG en forma de bloques de 
memoria y borrando después las sen- 



tencias de los datos. Normalmente, el 
ordenador almacena cada byte dos ve- 
ces: una en las posiciones de memoria 
que llenas con los datos (POKL) y 
también con las propias sentencias de 
datos. 

El ordenador almacena en código 
máquina, o bytes de memoria, en la 
cinta alterando cuatro punteros para 
hacer que el área de BASIC corres- 
ponda exactamente con el bloque de 
memoria que deseas salvar. Entonces 
almacena los datos de la manera nor- 
mal. 

Por ejemplo, para almacenar los da- 
tos desde los UDG del programa, es- 
cribe en primer lugar: 

POKE 43,0: POKE 44,48: POKE 
45,230 

POKE 46,55 



y pulsa | RETURN 1. A continuación 
entra esto: 



SAVE DATOS UDG ,1,1 

El ordenador almacenará un bloque 
de memoria que empieza en el punto 
en que se inician los datos de carac- 
teres, y termina al final de los mismos. 

El 1 que hay inmediatamente des- 
pués del nombre del fichero indica al 
ordenador que debe salvar en cinta, 
mientras que el segundo 1 que se trata 
de código máquina, o datos. 

El cuarto POKE cambia las direc- 
ciones a las que se apunta el inicio y 
el final del BASIC. En números an- 
teriores se explicaron cómo funciona 
esto para el inicio del BASIC (para los 
dos POKE 43 y 44) y para los otros 
dos POKE, 45 y 46, para el final del 
BASIC. Para volver a cargar los da- 
tos, emplea esto: 

LOAD 'nombre de fichero 1 , 1,1 



CONSEJOS PARA ANIMAR TUS 
FIGURAS 

A continuación se indican algunos 
datos que puedes incorporar al pro- 
grama principal para animar el ele- 
fante. Simplemente proporciona una 
alternativa de la posición de la trom- 
pa del animal, por lo que puedes 
pasar de una a otra para simular la 
animación. 

DATA (3,0,0,0,0,1,3,3 

DATA 6,15,15,31,29,25,26,24 

DATA 24,24,12,12,6,0,0,0 

Además, tendrás que variar los co- 
rrespondientes bucles FOR ... NEXT 
para establecer y presentar los nuevos 
UDG. 

También puedes mejorar el elefante 
animado desplazándolo a una posición 
más visible de la que aparece en el 
cuadro. 

La animación tiende a realzar un 
personaje, por lo que es una buena 
práctica emplear las partes animadas 
de tu cuadro como la parte principal. 
De esta manera podrás distraer la 
atención del observador de las partes 
menos llenas del cuadro. 

La animación de los demás perso- 
najes podrás realizarla de manera pa- 
recida. 
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j^rogramacim^ 



CONOS, CURVAS 
Y SECCIONES 



CORTAR UN CONO 



EL CIRCULO Y LA ELIPSE 



UNA PARABOLA Y UNA HIPERBOLA 
ROTACION DE CURVAS 



APLICACIONES PRACTICAS 



La sencilla figura del cono es una de 
las formas geométricas más fascinantes 
de las matemáticas, y proporciona una 
entera familia de curvas. Con estos pro- 
gramas podrás investigar sus propie- 
dades. 

Las curvas han fascinado a [os ma- 
temáticos desde tiempos inmemoria- 
les, y cuanto más sencillas y elegantes, 
más importantes se consideraban. Los 
antiguos matemáticos griegos eran 
muy aficionados a hacer las matemá- 
ticas tan sencillas como se pudiera, y 
por ello cuando se descubrió que se 
podía obtener toda una familia de cur- 
vas (conocidas como secciones cóni- 
cas) de un simple tajo practicado so- 
bre un cono, les pareció que los conos 
debían de revestir un significado es- 
peciaL 

De hecho La belleza de estas curvas 
está en que no son puras abstracciones 
matemáticas, sino que tropezamos con 
ellas en la vida diaria, y nos propor- 
cionan una precisa descripción de los 
fenómenos físicos. 

Naturalmente, en la naturaleza se 
encuentran otras curvas sencillas que 
no son secciones de un cono. La forma 
de una cuerda o de una cadena que 
cuelga entre dos puntos es una de 
ellas. Se llama catenaria, y, aunque 



parece una parábola, ambas curvas 
tienen sutiles diferencias, de tal modo 
que son descritas mediante ecuaciones 
muy diferentes. Pero las secciones có- 
nicas son importantes ya que sirven 
para señalar el modo como se mueven 
las cosas, y, por ende, se necesitan 
para cualquier programa realista. 

Algunas curvas son también útiles 
como objetos sólidos tridimensiona- 
les. Los cortes de un cono son bi di- 
mensionales, pero pueden rotar sobre 
sus ejes y ofrecer formas tridimensio- 
nales. Así el círculo se convierte en 
una esfera, con infinidad de usos, y la 
parábola se transforma en un para- 
boloide, empleado en cosas tan diver- 
sas como los faros de un coche, el 
juego de espejos de un telescopio, 
hornos solares, etc. 

Este artículo se divide en dos par- 
les. La primera describe cada una de 
las curvas y cómo dibujarlas en la pan- 
talla, mientras la segunda ilustra el uso 



de estas curvas en simulaciones como 
la trayectoria de un cubo unido a una 
escalera (una elipse), o de una per- 
sona que cruza el río a nado (una pa- 
rábola). 

Verás también cómo se dibujan for- 
mas espectaculares con el solo empleo 
de la hipérbola y de la elipse. 
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CORTAR EL CONO 



Las cuatro curvas que se obtienen 
cortando transversalmentc un cono (el 
círculo, la elipse, la parábola y la hi- 
pérbola) son muy distintas entre sí. El 
primero que las esludió con deteni- 
miento fue el griego Apolonio, allá 
por el año 200 a.C. 

El punto inicial es el que formarían 
dos líneas que se cruzan como for- 
mando una X. Si se las hace rotar so- 
bre un eje de simetría (véanse las ilus- 
traciones) se obtienen dos conos que 
pueden cortarse de cuatro maneras di- 
ferentes. 

Si se practica un corte en ángulo 
recto con el eje de simetría, la sección 
que se obtiene es un círculo. 

El corte realizado formando un án- 
gulo entre 90° y la mitad del ángulo 
que forman las líneas iniciales (deno- 
minado ángulo semivertical del cono), 
proporciona una sección denominada 
elipse. 

El corte realizado formando un án- 
gulo con el eje igual al ángulo semi- 
vertical nos da una parábola. 

Un corte con un ángulo menor que 
el semivertical da una sección con dos 
partes denominadas hipérbola. La hi- 
pérbola tiene dos partes porque el 
corte afecta a ambos conos, el supe- 
rior y el inferior. 

Observa estos dos casos especiales. 
El corte que incluye el eje, es decir, 
que corta los conos en dos mitades, de 
arriba abajo, proporciona dos líneas 
rectas (las que sirvieron para generar 
los conos) . Se trata de un caso especial 
de la hipérbola. En segundo lugar, ha- 
ciendo un corte formando un ángulo 
de 90" con el eje y por entre los dos 
conos, lo que se obtiene es un punto, 
que, en realidad, es un círculo con ra- 
dio cero. 

Las figuras que te adjuntamos te se- 
rán suficientes para comprender cómo 
se obtienen todas estas formas geo- 
métricas descritas. Si te animas, tú 
mismo puedes construirte tus conos y 
realizar los cortes en diferentes direc- 
ciones, con servirte tan sólo de una 
cuartilla de papel. Los dos conos son 
necesarios para obtener una parábola, 
ya que con un solo cono obtendrás 
sólo una parte del modelo. 



DIBUJAR LAS CURVAS 

Todas las curvas se generan me- 
diante sencillas ecuaciones, algunas de 
las cuales tú quizás ya conozcas. Los 
mandatos de gráficos de alta resolu- 
ción para tu Commodore se obtienen 
mediante el cartucho BASIC de Si- 
món o la utilidad en código máquina 
que ya te ofrecimos hace varios nú- 
meros. 

EL CIRCULO 

La ecuación de un círculo está dada 
por: 

X = A*COS 6 
Y = A*SIN 8 

donde A es el radio, X, Y un punto de 
la circunferencia, y 6 (la letra griega 
zeta o theta) el ángulo formado por 
una línea fija, que habitualmente es el 
eje X. 

Este primer programa dibu ja un cír- 
culo de radio A, y centro el de la pan- 
talla: 



La forma más o menos achatada de 
la elipse se determina por A y B. Cam- 
bia estas líneas: 

10 HIRES 0,1:COLOUR 1,1 

15 A =60 

16 B = 30 

20 C = ATN(l)/45 
30 XX=160 + A:YY=100 
40 FOR TH = TO 360 STEP10 
50 X = A*COS(TH*C):Y=B*SIN 
(TH*C) 

60 LINE XX,YY,160 + X,100+ 
Y,l 

65 XX=160 + X:YY=100 + Y 
70 N EXT TH 
80 GOTO 80 

LA PARABOLA 

El tamaño de la parábola depende 
del valor de una variable T, y las ecua- 
ciones son: 
X = T 2 
Y - 2*T 



10 

15 
20 
30 
40 
50 

60 
65 
70 
80 



HIRES 0, 1:C0L0UR 1,1 
A = 60 

C = ATN(l)/45 
XX=160+A:YY-100 
FOR TH = TO 360 STEP10 
X = A*COS(TH*C):Y=A*SIN 
(TH*C) 

LINE XX, YY,160 + X,100 + Y T 1 
XX=160 + X:YY=100 + Y 
NEXT TH 
GOTO 80 




El círculo 



LA ELIPSE 
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La ecuación de una elipse es muy si- 
milar a la del círculo. Para una elipse 
con el eje mayor igual a 2A y el eje 
menor igual a 2B, la posición de cual- 
quier punto está dada por: 
X - A*COS 8 
Y = B*SIN e 




El valor T puede variar desde infi- 
nito hasta menos infinito, pero pode- 
mos hacer una sección de parábola 
bastante asequible entre T = 2 y T = 
-2. Estos valores deben ajustarse a es- 
cala en el programa mediante un fac- 
tor M para que quepan en una pan- 
talla de TV. Éste es el programa que 
dibuja la parábola: 

10 HIRES 0,1:COLOUR 

1,1 
15 M = 23 
20 C=ATN(l)/45 
30 XX=160 + M*4:YY=100 



-4*M 

40 FOR T=-2 TO 2 STEP.05 
50 X=M*T12:Y=2*M*T 
60 LINE XX,YY,160+X,100-f 
Y,l 

65 XX=160 + X:YY=100 + Y 
70 NEXTT 
80 GOTO 80 



LA HIPERBOLA 



La hipérbola tiene por ecuación: 
X - A/COS 9 
Y = B*TAN 6 




Y 

T = 


T = 1 




2 

X 






FOCUS 



Una mitad de la 


hipérbola se ob- 


theto = 270° Y 


theto = 90* 








, / ! x 


theto = ISO "/ 


A \ theto = fl 


theto = 9ü fl 


theto = -90° 



La hipérbola 



La parábola 



La elipse 




tiene cuando va de menos 90" a más 
9(1", y la otra mitad cuando va de más 
90" a más 270°. Teóricamente es po- 
sible emplear sólo un bucle en el pro- 
grama que lleve a desde -90" hasta 
+270°, pero tendríamos problemas en 
-90°, 90" y 270" donde se divide por 
cero, lo que el ordenador no saberc- 
solver. Incluso para valores de muy 
próximos a éstos, se obtienen valores 
enormemente grandes. El programa 
que presentamos emplea, por ello, dos 
bucles. Y nuevamente, mediante el 
factor M se puede dibujar a la escala 
deseada esta figura en la pantalla: 

10 HIRES 0,1:COLOUR 1,1 

15 M = 50 

20 C=ATN(l)/45 

25 X=M/COS(-60*C):Y=M*TAN 

(-60*0) 
30 XX=267:YY=8 
40 FOR TH=-60 TO 60 STEP5 
50 X=M/COS(TH*C):Y = M*TAN 

(TH*C) 

60 LINE XX,YY,160+X,100 + 
Y,l 

65 XX=160+X:YY=100+Y 
70 NEXTTH 

75 X=M/COS(120*C):Y=!VrTAN 

<120*C) 
80 XX=50:YY=8 
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90 FOR TH = 120 TO 240STEP5 
100 X=M/COS(TH*C):Y = M*TAN 
(TH*C) 

110 LINE XX,YY, 160+X, 100+Y, 
1 

115 XX=160+X:YY=100 + Y 
120 NEXTTH 
130 GOTO 130 

HAGAMOS GIRAR LAS CURVAS 

Los programas anteriores dibujaron 
las figuras de la manera más sencilla 
posible con X de eje horizontal e Y de 
eje vertical. Pero esto no siempre es 
lo que conviene, pues puede que ne- 
cesites dibujar las curvas formando un 
determinado ángulo. La fig, 1 muestra 
lo que sucede a un punto del borde de 
una elipse cuando se le hace girar con 
un ángulo de AN grados. El punto P 
se mueve de la posición X, Y a su 
nueva posición XT, YT y sus nuevas 
coordenadas son: 
XT = X ( OS AN - Y*SIN AN 
YT = X*SIN AN + Y ( OS AN 

He aquí la rutina de la rotación para 
tu ordenador: 

10 HIRES 0,TCOLOUR 1,1 

15 A=60 

16 B=30 



17 AN=60 

20 C=ATN(l)/45 

25 X=A:G0SUB 1000 

30 XX=160+XT:YY=100+YT 

40 FOR TH = TO 360 STEP10 

50 X=A*COS(TH*C):Y=B*SIN 

(TH*C) 
55 GOSUB 1000 
60 LINE XX,YY,160+XT, 

100+YT,1 
65 XX=160+XT:YY = 100+YT 
70 NEXTTH 
80 GOTO 80 

1000 XT=X*COS(AN*C)-Y*SIN 
(AN*C) 

1010 YT=Y*COS(AN*C)+X*SIN 

(AN*C) 
1020 RETURN 

En el programa que te dibuja la 
curva deberás introducir algunas mo- 
dificaciones para que te sirva la rutina 
de la rotación. Se debe especificar (lí- 
nea 17) el ángulo de rotación AN, la 
posición inicial ha de girar, y las líneas 




deben dibujarse según las nuevas 
coordenadas XT e YT en lugar de X 
e Y. Si lo deseas, puedes alterar la lí- 
nea 17 para que te permita introducir 
(INPUT) el ángulo de giro. 

He aquí los cambios que debes ha- 
cer en el programa que dibuja la 
elipse. No olvides añadir la rutina de 
la rotación: 

10 HIRES 0,1:COLOUR 1,1 
15 M = 23 
17 AN = 60 



20 
28 

30 

40 
50 



C=ATN(l)/45 
X=M*4:Y=-M*4:G0SUB 
1000 

XX=160 + XT:YY=100+ 
YT 

FOR T=-2 TO 2 STEP.05 
X=M*T12:Y=2*M*T 
55 GOSUB 1000 
60 LINE XX,YY,160+XT, 

100 + YT, 1 
65 XX=160+XT:YY=100+YT 
70 NEXTT 



80 GOTO 80 

1000 XT=X*COS(AN*C)-Y*SIN 
(AN*C) 

1010 YT=Y*COS(AN*C)+X*SIN 

(AN*C) 
1020 RETURN 

10 HIRES 0,1:COLOUR 1,1 

15 M = 35 

17 AN=60 

20 C=ATN{l)/45 

25 X=M/COS(-60*C):Y=M*TAN 

(-60*C) 
28 GOSUB 1000 
30 XX=160+XT:YY=100+YT 
40 FOR TH=-60 TO 60 STEP5 
50 X=M/COS(TH*C):Y=M*TAN 

(TH*C) 
55 GOSUB 1000 
60 LINE XX,YY,160 + XT, 

100 + YT,1 
65 XX=160+XT:YY=100 + YT 
70 NEXTTH 

75 X=M/COS(120*C):Y=M*TAN 




(120*0 
78 GOSUB 1000 
80 XX=INT (160 + XT):YY=INT 

(100+YT) 
90 FOR TH = 120 TO 240 

STEP5 

100 X=M/COS(TH*C):Y = M*TAN 

(TH*C) 
105 GOSUB 1000 
110 L!NEXX,YY,160 + XT, 

100 + YT, 1 
115 XX=160+XT:YY=100 + YT 
120 NEXTTH 
130 GOTO 130 

1000 XT=X*COS(AN*C)-Y*SIN 
(AN*C) 

1010 YT=Y*COS(AN*C)+X*SIN 

(AN*C) 
1020 RETURN 

APLICACIONES PRACTICAS 

Todas estas curvas pueden tener 
ciertas aplicaciones prácticas. 

El círculo tiene tantos usos que no 
es posible enumerarlos. La rueda es 
un ejemplo demasiado trivial de un 
círculo, y un cojinete de bolas es tam- 
bién otro uso obvio de la esfera. Las 
esferas, o sus aproximaciones, se pre- 
sentan con frecuencia en la natura- 
leza. Los ejemplos que se pueden po- 
ner van desde las gotas de lluvia y los 
granos de guisante hasta los planetas. 
Pero las esferas pocas veces son per- 
fectas debido al efecto de la gravedad, 
el viento u otras fuerzas. Un planeta 
que gira en torno a una estrella podría 
describir una circunferencia, pero lo 
más frecuente es que describa una 
elipse. 

Una aplicación práctica de gran uti- 
lidad del círculo es la que permite de- 
terminar el menor coste de transporte 
de una mercancía que puede com- 
prarse en uno de dos puestos de dis- 
tribución. Por ejemplo, supongamos 
que tú deseas comprar un ordenador 
que se vende tanto en la casa A como 
en la B y que distan entre sí 300 ki- 
lómetros. La casa A envía sus orde- 
nadores a través de medios de trans- 
porte especiales y a un precio de 3 
ptas. por km, mientras que la casa B 
emplea su propia furgoneta, que viene 
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a salir a 1,5 ptas./km. Es inmediato 
marcar el área en el mapa de donde se 
puede obtener el ordenador deseado, 
al menor precio de transporte, sea de 
la casa A o de la B. La idea es marcar 
iodos los puntos donde ambos costes 
son iguales, y unirlos por una línea. Lo 
que habrás hecho es marcar los puntos 
en que la distancia hasta B es el doble 
que la distancia hasta A. 

Un punto estará en la línea entre A 
y B, a 100 km de A y 200 km de B (ya 
que 100 x 3 es igual que 200 x 1,5). 
Otro punto está en la misma línea a 
300 km de A pero en la dirección 
opuesta a B (300 x 3 es igual que 600 
x 1,5). Si tú unes todos estos puntos 
obtendrás un círculo de radio 200 km, 
conforme se muestra en la fig, 2. Sí re- 
sides dentro del círculo es más barato 
comprarle a A, y si vives fuera de él 
es más barato comprarle a B. 

La elipse tiene también sus usos 
prácticos. SÍ proyectas la sombra de 
una elipse sobre una superficie plana 
es posible mantener la elipse de tal 



manera inclinada que su sombra dé un 
círculo. Esta propiedad se utiliza en 
las válvulas de los canales circulares, 
donde se utiliza una alela elíptica para 
controlar el gas o el fluido que circula. 
La aleta se ajusta a la tubería justo 
cuando alcanza el ángulo adecuado y 
de esta forma cierra la tubería. 

La parábola describe, como sabes, 
la trayectoria de un proyectil dispa- 
rado al aire. Los cometas pueden via- 
jar en forma parabólica alrededor del 
sol. 

Una propiedad muy útil de la pa- 
rábola es que los rayos de luz, calor u 
otro cuerpo paralelo al eje se reflejan 
a través del foco. Esta propiedad es 
válida en ambos sentidos, por lo que 
una bombilla eléctrica colocada en el 
foco dará un haz de luz paralelo, como 
el que se usa en los faros de los au- 
tomóviles. En la otra dirección, los ra- 
yos paralelos que proceden del sol se 
pueden concentrar en el foco para ob- 
tener altísimas temperaturas como 
ocurre en los hornos solares. 




En la práctica, los reflectores em- 
pleados para tales propósitos son pa- 
raboloides tridimensionales. Otro uso 
de los paraboloides se halla en los dis- 
cos que sirven de antena de radar o de 
radio, donde la antena se coloca en el 
foco y puede emplearse tanto para 
transmitir como para recibir señales. 

Una importante característica de la 
hipérbola consiste en el hecho de estar 
formada de dos partes. Y un uso prác- 
tico de ello está en el sistema de radar 
de los barcos. El sistema se basa en 
dos estaciones de radar. Una estación 
transmite señales normalmente, y la 
otra sólo se limita a retransmitir las se- 
ñales recibidas por la primera esta- 
ción. Cualquier barco que se halle en 
las proximidades recibe ambas señales 
y anota el tiempo que medía entre sus 
llegadas. Si continúa moviéndose de 
tal modo que conserva esta diferencia 
ele tiempo constante seguirá una tra- 
yectoria hiperbólica como la que mos- 
tramos en la fig. 3. Si el barco recibe 
también las señales de otras dos esta- 
ciones de radar y de nuevo toma nota 
de la diferencia de tiempo hará posible 
una segunda hipérbola y la intersec- 
ción de ambas ofrecerá la posición del 
barco. No puede haber confusión so- 
bre la rama de la hipérbola en que se 
encuentra el barco puesto que puede 
detectarse ía señal que llega en primer 
lugar. 

ALGUNOS DETALLES 

Los programas que te ofrecemos en 
este artículo han sido pensados para 
una perfecta utilización de la pantalla 
de televisión. 

Cuando los uses en tus propios pro- 
gramas, habrás de cambiar el factor M 
de incremento, para que las curvas se 
dibujen al tamaño que deseas. 

Debes tener también cuidado con la 
parábola que gira o la hipérbola cer- 
ciorándote de que los cabos de las cur- 
vas entren en la pantalla. Para evitar 
que se salgan, altera los finales de los 
bucles FOR ... NEXT en la línea 40 
del programa de la parábola y las lí- 
neas 40 y 90 del programa de ia hi- 
pérbola. Para encontrar los límites 
exactos deberás recurrir al método de 
ensayo y error. 
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Uno de los sueños del hombre ha sido 
siempre alcanzar las estrellas. Este ar- 
tículo, complemento del que dedicamos 
a los objetos voladores, va a enseñarle a 
tu micro cómo debe conseguir tal obje- 
tivo. 

En el artículo en que tratamos de 
trayectorias, publicado en 1NPUT 
COMMODORE EXTRA VERANO 
86, pudiste ver cómo se puede dividir 
la velocidad de un proyectil en un 
componente vertical y otro horizontal. 
Pudiste ver también cómo se puede 
modificar el alcance de un proyectil 
cambiando el ángulo de elevación y la 
velocidad a la que se disparaba. Este 
artículo reanuda en este punto el es- 
tudio de los cuerpos móviles. Anali- 
zará el movimiento de los objetos bajo 
la ley de gravedad, y te va a permitir 
conocer su trayectoria desde puntos 
cercanos a la superficie terrestre hasta 
muy lejanos, hasta quedar en órbita. 

Antes de lanzarte al espacio, entra 
el primer programa, que te demuestra 
lo útil que nos va a resultar saber algo 
sobre trayectorias para cuando quieras 
hacer que tus juegos de proyectiles 
sean más interesantes y difíciles. Para 
tu Commodore 64 necesitas ajustar el 
modo gráficos en alta resolución, en 



todos los programas excepto el pri- 
mero. Puedes servirte del cartucho de 
BASIC de Simón o bien entrar pri- 
mero la utilidad de alta resolución en 
código máquina que te ofrecimos en 
esta revista. Si usas esta última debe- 
rás poner un prefijo a todos los man- 
datos de alta resolución. 

99 GOSUB 13000 

100 A% = RND(1)*8: 

B% = RND(1)*8 + 31: C% = R 

ND(1)*8 + 2:CT=0 
110 CT=CT+1 
115 PRINT 

'[SHIFT+CLR/HOME]':SYS 




832 

120 GOSUB 9000 
130 GOSUB 7000 
140 GET l$:IF l$<>CHR$(13) 

THEN 140 
150 GOSUB 9500 
160 PRINT '[SH1FT+CLR/H0ME]' 
INPUT '[CLR/HOMEHCRSR 
ABAJ01ANGUL0 DE DISPA 
RO'; A2 

IF A2<0 OR A2> = 90 
THEN170 

INPUT '[CLR/H0ME][ 
3*CRSR ABAJ01VEL0CIDAD 



170 



APUNTAR AL OBJETIVO 



DISTANCIAS 
LA VUELTA AL MUNDO 



MANIOBRAS EN EL ESPACIO 



MOVIMIENTOS PLANETARIOS 




200 IF E=0 THEN190 
205 GOSUB 9000 
210 AN=A2*(EXEC /180):X3 = 8 
X=X3 + 8*(A%+1) 
H = 8+X3*TAN(AN)-X3T2/( 
E t 2*C0S(AN T 2) 
Y=191-H:G0SUB 
10000:FR = H/2 + 20:WF = 3 
3:G0SUB 11000 
X3=X3 + 7 

BY = 24576 + ((Y-1) AND 
248)*40+(X AND 504) + ((Y- 
1) AND 7) 

P0=<PEEK(BY) AND 2 f (7-X 
AND 7)) 

IF X<311 AND H> = 8 AND 
H<183 AND PO = 
THEN220 

HIT=ABS(X-(B%*8+4))<6 
AND H<24 
IF PO>0 OR HIT 
THENFR = 20: WF=129: 
GOSUB 11000 
FOR D=l TO 2000:NEXT 
290 GOSUB 9500 
310 I F CT< 1 1 AND NOT HIT 

THEN 1 10 
320 PRINT '[SHIFT+CLR/HOME]' 



220 
230 

240 



250 
260 



265 



270 



273 



275 



280 
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322 FOR D=l TO 99:NEXT 

325 GOSUB 9500 

330 IF HIT THENPRINT 'BUEN 

DISPARO !!!':PRINT :PRINT 

'LO CONSEGUISTE EN'CT 
340 IF NOT HIT THEN PRINT 

'FALLASTE !!!' 
350 PRINT: PRINT 'INTENTALO 

DE NUEVO 
360 FOR D=l TO 4000:NEXT 
370 GOTO 100 

7000 V=l:FOR l = 31936+A%*8 
TO 31936 + A%*8 + 7: 
POKE l,V:V = V*2:NEXT 

7010 FOR l = 31936 + B%*8 TO 
31936 + B%*8 + 7:POKE 
l,255:NEXT 

7020 FOR X=l TO C%:FOR Y=l 
TO C%:BA = 32256 + (13 + 
X)*8-Y*320 

7030 FOR l = BA TO BA+7:P0KE 
l,63:NEXT 

7040 NEXT :NEXT 

7099 RETURN 

9000 POKE 56576, 150:POKE 5 
3265,187:POKE 53272, 
29:RETURN 
9500 POKE 56576, 151:POKE 
53265, 27:POKE 53272, 
21 :RETURN 
10000 BY=24576 + (Y AND 

248)*40 + (X AND 504) + ( 
Y AND 7):POKE BY, PE 
EK(BY) OR 2|(7-(X AND 
7)) 

10010 RETURN 
11000 POKE 54296,10 
11010 POKE 54278,251 
11020 POKE 54276, WF 
11030 POKE 54273, FR 
11035 FOR D=l TO 20:NEXT 
11040 POKE 54276, WF-1 
11050 RETURN 
12000 DATA 169,0,133,251, 

169,96,133,252,169,0, 
168,145,251,200,208, 
251 

12010 DATA 230,252,165,252, 
201,128,208,240 

12020 DATA 162,0,169,7,157, 
0,68,157,0,69,157,0,7 
0,157,232,70,232,208 



,241,96 
13000 FOR Z = 832 TO 

875:READ X:POKE Z, 
X:NEXT Z: RETURN 

El programa pide que entres la ve- 
locidad de despegue y el ángulo de 
elevación para obtener un disparo que 
va desde la parte inferior izquierda de 
la pantalla hasta un objetivo que se 
halle en la parte inferior derecha. Pue- 
des hacer más difícil el juego colo- 
cando el punto de disparo y el objetivo 
a distancias aleatorias (randofn) para 
cada serie de intentos, y, todavía más 
difícil, instalando una barrera de ta- 
maño aleatorio en un punto también 
aleatorio entre los puntos de partida y 
de llegada. Cualquiera de las trayec- 
torias que escojas habrá de tener la su- 
ficiente altura como para superar la 
barrera al efectuarse el disparo. 



DISTANCIAS 

Este programa es un buen ejemplo 
de cómo el cerebro humano emite sus 
juicios. Con sólo mirar las posiciones 



del fusil, del obstáculo y del objetivo, 
se puede estimar la velocidad y el án- 
gulo requeridos para obtener una 
curva que hace que el proyectil se 
eleve por encima del obstáculo y dé en 
toda la diana. Con un poco de prác- 
tica, vas a sorprender por la cantidad 
de proyectiles que consigues que den 
en el objetivo. 

Pero medir tales distancias de mo- 
mento te resultará un tanteo con mu- 
chos fallos, por carecer de una vista la- 
teral clara. Lo que puede ocurrir es 
que sepas la distancia aproximada del 
objetivo, y tengas que calcular el án- 
gulo y la velocidad adecuadas. Anali- 
zando si el disparo te ha quedado 
corto o demasiado largo, progresiva- 
mente harás cálculos más ajustados. 

El siguiente programa muestra 
cómo hacer esto. Despeja de la me- 
moria el primer programa (CLEAR). 
pero una vez que lo has guardado 
(SAVE) si es que deseas volverlo a 
usar. Entra ahora estas líneas que si- 
guen. Ajusta primero, no lo olvides, el 
cartucho de BASIC de Simón o la ru- 
tina en código máquina. 
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20 PRINT '[SHIFT+CLR 

/HOMEJVELOCIDAD DE 

DISPARO (1-10000 

M/SMNPUT SP 
30 IF SP<1 OR SP>10000 

THEN20 
40 PRINT 

TSHIFT + CLR/HOME]ANGULO 

DE DISPARO (1-90 

DEG) r :INPUT A 
50 IF A<1 OR A>89 THEN40 
60 A=A*(EXEC/180) 
70 R = SP*SP*SIN(2*A)/10 
80 PRINT 

'[SH IFT+/CLR/HOM E]EL 

ALCANCE ES'JNT (R + .5) ; 'M 

ETROS 1 

90 PRINT TCRSR ABAJO]PULSA 
UNA TECLA PARA SEGUIR (- 
0- PARA SALIR)' 
100 GET D$:IF D$ = " TH EN 100 
110 IF D$<>'0' THEN RUN 

Este programa te permite introducir 
(INPUT) los valores de la velocidad 
inicial (línea 20) y del ángulo de ele- 



vación (línea 40). La línea 70 calcula 
seguidamente y visualiza el alcance 
que darán al proyectil estos valores. 
La variable R es el alcance {Rangé), 
SP la velocidad (SPeed), A es el án- 
gulo, y el 10 es el valor aproximado de 
la gravedad próximos a la superficie 
terrestre (en realidad es 9,81). 

El efecto de la presión del aire no se 
tiene en cuenta, aunque no debes ol- 
vidarla en pruebas que simulen la rea- 
lidad. La velocidad de disparo más 
alta que posee un cañón supera los 
2.000 m/s. Con ella se han disparado 
objetos fuera de la Tierra en misión 
investigadora. Los objetos alcanzan 
una altura de 180 km, pero sin la pre- 
sión del aire la altura podría llegar a 
ser de unos 250 km. 

LA VUELTA AL MUNDO 

Si el objeto es disparado con un án- 
gulo que lo eleve por encima de la Tie- 
rra, el efecto de la presión es menor, 
pero si deseas un alcance aún mayor, 
habrás de tener en cuenta la curvatura 
de nuestro planeta. Uno de los pri- 
meros científicos que se plantearon el 
problema del máximo alcance de un 
proyectil que se eleva sobre la super- 
ficie de la Tierra fue el británico sir 
Isaac Newton. 

Newton imaginó un poderoso fusil 
en la cima de una montaña lo suficien- 
temente alta como para estar fuera de 
la atmósfera terrestre. Los disparos 
hechos a una velocidad cada vez ma- 
yor llegarían cada vez más lejos si la 
Tierra fuera plana, Pero dado que ésta 
es redonda, la superficie se separa del 
proyectil, con lo que puede alcanzar 
una distancia mayor que si nuestro 
planeta fuera plano. 

Newton argumentaba además que 
se podría entonces disparar un pro- 
yectil a tanta velocidad que nunca ca- 
yera en tierra, sino que le alcanzara a 
él por la espalda. Cuando el proyectil 
fuera a caer sobre la superficie de la 
Tierra, ésta se curvaría de tal manera 
que el proyectil quedaría «sin tierra» 
para siempre: estaría dando vueltas al 
mundo. 

Una vez que cualquier objeto es- 
capa de la gravedad del planeta, su ve- 
locidad y distancia respecto del pla- 
neta determinan luego el tipo de ór- 



bita que seguirá: circular o elíptica. 

Para que se puedan hacer prediccio- 
nes y medidas sobre un planeta o sa- 
télite, debe conocerse su órbita con 
precisión: hay que saber las caracte- 
rísticas exactas de la elipse. El grado 
de «achatamiento» de una elipse se 
denomina excentricidad (E). Esta 
mide la proporción entre la largura y 
la anchura de la elipse. Si E es igual a 
1, la elipse es igual de ancha que de 
larga, o sea, es una circunferencia. 

Entra y ejecuta (RUN) el siguiente 
programa para ver el efecto obtenido 
al variar E con valores que van de cero 
y pico a mayores que uno: 

30 PRINT J [SHIFT + CLR/HOME]E 
XCENTRIC1 DAD (0.1-1. 9)':l 
NPUT E 
40 IF E<.1 OR E>1.9 THEN30 
50 H1RES } 1:X-160:Y=100- 
E*50 

60 FOR A=0 TO 2*EXEC +.2 
STEP.l 

70 LINE X,Y,160 + *SIN(AU00-( 

E*50*COS(A)U 
80 X=160 + 80*SIN(A): 

Y=100-(E*50*COS(A)):NEX 

T A 

90 FOR Z = l TO 2000:NEXT 
Z:NRM :RUN 

Este programa establece un bucle 
entre las líneas 30 y 110 para dibujar 
elipses para las cuales tú introduces 
(INPUT) el valor de E en la línea 30. 
Las curvas se dibujan mediante un 
FOR ... NEXT (líneas 60 a 80) para 
que dibujen DRAW entre cada punto. 

Entra valores de E dentro del inter- 
valo que te muestra la pantalla y com- 
prueba cómo E = l da una circunfe- 
rencia, E = 0, ... te da elipses apla- 
nadas, y E > 1 te proporciona elipses 
como huevos de pie. Notarás, sin em- 
bargo, que en tu Commodore, E ~ 
1,5 es muy parecida a una circunfe- 
rencia. Conclusión: toda órbita no es 
más que una elipse con su preciso valor 
de E. 

MANIOBRAS EN EL ESPACIO 

Una vez en órbita, un satélite o 
nave espacial no necesita energía al- 
guna para mantenerse en ella, dado 
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que su caída es libre. Cualquier uso de 
cohetes lo desplazará a una órbita su- 
perior o inferior. 

Cuanto menor sea el radio de la ór- 
bita, más rápidamente se moverá el 
objeto. Entra el siguiente programa 
para comprobarlo. 

10 HIRES 0,1 

20 POKE 54296 f 15:P0KE 

54277,64 
40 R = 30:RT=INT 

(RND(1)*70)+10:IF ABSÍR-R 

T)<20 THEN40 
50 TEXT 157,97, '*\1, 1,1 
60 S = .1:A = 0:AT=INT 

(RND(1)*10) + 1:F=0 
80 A=A+S 
95 LT = AT 

100 AT=AT+.1*SQR((40/RT) f 3) 
110 GET A$:IF A$ = Í [CRSR 

DCHAJ' AND R<95 THENF = 
F+1:R=R+1:S=S*SQR(Í(R 
-D/R) T 3) 
120 IF A$= f [CRSR ABAJO]' AND 
R>8 THENF=F+1:R = R-1:S 
=S*SQR(((R+1)/R)f 3) 
130 X=R*SIN(A):Y=R*COS(A) 
140 XT=RT*SIN{AT):YT=RT* COS 
(AT) 

150 PLOT 160+X I 100-Y J 1 
160 POKE 54276, 17:P0KE 

54273,1 + R:F0R Z = l TO 

5:NEXT Z 
165 POKE 54276,0:POKE 

54273,0 
170 PLOT !60+XT f 100-YT,l 
175 PLOT 160+RT*SIN(LT), 100- 

RT*COS(LT),0 
180 IF ABS(X-XT)>3 OR ABS(Y- 

YT)>3 THEN80 
190 NRM :PRINT 

TSHIFT+CLR/HOMEJHAS 

USADO'jF^ENCENDIDOS' 

Ejecútalo (RUN) y observarás la es- 
tela de un aparato en órbita y también 
el satélite objetivo (sin estela). Intenta 
ajustar la órbita de tu aparato con la 
del satélite mediante las teclas de fle- 
chas de cursor arriba y cursor abajo. 
La línea 40 establece el radio R de la 
órbita del aparato a valor 200 y el ra- 
dio del objetivo a un valor random. La 
línea 60 establece luego las varia- 



bles para las posiciones de partida. 

El punto crucial del programa está 
en la línea 100, que se inspira en otra 
importante ley física; la raíz cuadrada 
del tiempo que se tarda en hacer una 
órbita entera, dividida por el cubo del 
radio es constante. Es lo que explica 
SQR y la potencia a 3 de esta línea. 

Para aumentar o disminuir el ta- 
maño de la órbita (hacer maniobras) 
deberás utilizar las flechas de cursor 
arriba y abajo. Recuerda que cuanto 
más pequeñas son las órbitas a más ve- 
locidad irás. 

MOVIMIENTO PLANETARIO 

En realidad, las maniobras de salida 
y entrada a una órbita son mucho más 




laboriosas que lo que el programa an- 
terior pueda hacer pensar. Es muy fá- 
cil trasladarse de una órbita elíptica a 
otra, pero la inmensidad del espacio 
hace que sea difícil localizar un obje- 
tivo. Y para complicar las cosas inter- 
viene de nuevo el efecto de la grave- 
dad. La gravedad del Sol, de la Luna 
y de los planetas ejerce su influencia 
sobre la trayectoria del aparato espa- 
cial. 

En la práctica las herramientas de 
los astronautas son precisamente unos 
poderosos ordenadores. Éstos se en- 
cargan de controlar la velocidad, el 
tiempo y la dirección del encendido de 
los cohetes para mantener la nave en 
la trayectoria descada. 

Una vez situada en la trayectoria co- 





24 INPUT 




Programación 



rrecta, ia nave queda sometida al in- 
flujo del campo gravitatorio del sis- 
tema solar. Sólo son necesarias unas 
pocas correcciones en meses y años de 
viaje: justo cuando los planetas y el 
Sol se interponen año tras año. El si- 
guiente programa va a permitirte ob- 
servar los planetas en movimiento: 

10 PRINT 

'[SHIFT + CLR/HOMEHCTRL+1]' 

:NRM::COLOUR 0,1 

20 D1M D(8),P(8),I(8),A(8), 
B(8) 

30 FOR T=0 TO 8:READ D(T), 

P(T):NEXT T 
40 PRINT 

'[SHIFT+CLR/H0ME1CUANT0S 



PLANETAS (1-9)':INPUT 
S 

50 IF S<1 OR S>9 THEN 

40 

60 S=S-1:SC=D(S)/90:T=P(S)/ 
75 

70 PRINT 

'[SHIFT+CLR/HOME] EXISTEN 
';INT (T);'DIAS':PRINT 'DE 
INTERVALO ENTRE CADA 
PUNTO' 

75 PRINT '[CRSR ABAJOJPULSA 
-ESPACIO- PARA 
SEGUIR' 

76 GET A$:IF A$<>' ' THEN 
76 

80 FilRES 1,0 





110 G = EXEC /180 
120 FOR Q=0 TO S 

130 R=D(Q)/SC:A=R:B = R:E = 0: 

P=P(Q)/T 
140 IFQ=0 

THENE = .2:B=A*.98 
150 IFQ=8 

THENE = .26:B = A*.96 
155 IF S>3 AND Q<4 THEN 

245 

160 IF P>3 THENP-INT (P+.5) 
170 l(Q) = l(Q)+360/P 
180 Y=G*I(Q):X=INT 

(A*(COS(Y)-E)):Y = INT (B*S 

IN(Y)) 

200 TEXT 157 + A(Q),97-B(Q), 

'[SHIFT + W]', 0,1,1 
220 PLOT 160+A(Q),100-B(Q), 

1 

225 TEXT 157,97,'[SHIFT+Q], 1, 
1,1 

230 TEXT 157+X.97-Y, 

'[SHIFT+W]', 1,1,1 
240 A(Q) = X:B(Q) = Y 
245 NEXTQ 
250 M — M + T 

260 GET A$:IF A$ = * ' THEN 

RUN 
270 GOTO 120 

280 DATA 58,88,108,225,150, 

365,228,687 
290 DATA 778,4333,1427, 

10759,2870, 

30685 

300 DATA 4497,60190,5969, 
90741 

Cuando ejecutes (RUN) este pro- 
grama, deberás entrar un valor para 
seleccionar el número de planetas que 
deseas observar. Cuanto mayor sea el 
número (entre el 1 y el 9), más com- 
plicadas imágenes obtendrás. Para sa- 
ber que planetas estás observando, re- 
cuerda que el más próximo al Sol es 
Mercurio, después le sigue Venus, y 
luego ia Tierra, Marte, Júpiter, Sa- 
turno, Urano, Neptuno y Plutón. Eje- 
cuta el programa con valores diferen- 
tes y observa que las órbitas de dos 
planetas (Mercurio y Plutón) son cla- 
ramente elípticas. De hecho todas son 
elípticas, sólo que algunas tienen una 
excentricidad muy pequeña y casi se 
asimilan a circunferencias. 

INPUT 25 
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Si alguno de tus programas posee sub- 
rutinasa las que se llama repetidamente, 
puedes encontrarte con un caso ade- 
cuado para utilizar programación re- 
cursiva. Averigua cómo. 

Esencialmente, programar un or- 
denador es un ejercicio de resolución 
de problemas. A medida que tu ha- 
bilidad se desarrolle, podrás darte 
cuenta de que la mayor parte de pro- 
blemas pueden resolverse si se dividen 
en problemas menores y más simples. 
Sin embargo, eventualmente llegarás 
a una de las pesadillas de los progra- 
madores, en la que un intento de re- 
solver un problema te lleva solamente 
a un nuevo problema, la solución del 
cual te conduce a otro problema, y así 
sucesivamente. 

Puedes considerar que se trata de 
un punto lo bastante delicado como 
para hacer un alto e ir en busca de un 
problema distinto, pero recuerda que 
tu micro no se ve afectado por esa 
clase de barrera mental que hace que 
un cerebro humano aproveche la me- 
nor oportunidad para salir de la pe- 
sadilla. De hecho, hay una técnica de 
programación avanzada que sirve para 
resolver ciertos tipos de problemas 
que pueden reducirse a pro- 
blemas dentro de proble- 
mas. Dicha técnica se 
denomina recursión. 



UIM AIRE DE MISTERIO 

Generalmente, los programadores 
inexpertos ven la recursión como un 
tema altamente complicado y miste- 
rioso. Eso es a causa de que las téc- 
nicas de programación utiliza- 
das pueden ser extremada- 
mente difíciles de seguir a par- 
tir del listado. Al- 
gunas veces, ni si- 
quiera un diagrama 
de flujo muestra 
claramente lo que 
sucede realmente. 
No obstante, el prin- 
cipio no es difícil de 
captar. 

En términos ma- 
temáticos, «recur- 
sión» es la repeti- 
ción de una opera- 
ción determinada. 
Sin embargo, 
esta defini- 
ción no 

es y ■ 



estrictamente aplicable a la progra- 
mación, en donde tiene un significado 
más preciso. En esencia, recursión es 
una llamada primaria a una subrutina 
o procedimiento con un conjunto de 
parámetros iniciales. A continuación, 
la subrutina o procedimiento se llama 
a sí mismo repetidamente, actuali- 
zando los parámetros en cada lla- 
mada, hasta que se ha llevado a cabo 
una determinada tarea. 

MAQUINA INTELIGENTE 

Para ayudarte a comprender el con- 
cepto básico de recursión, piensa en 
cómo un conductor puede viajar desde 
el lugar A al lugar B, a través de una 
gran ciudad con la que no está fami- 



liarizado. El conductor dispone de 
mapas con las calles de la ciudad, pero 
observa que viajar directamente de A 
a B es demasiado difícil. Por tanto, de- 
cide descomponer el problema en un 
cierto número de problemas similares 
(pero mucho más simples), cada uno 
de los cuales puede irse resolviendo 
sucesivamente. El modo más sencillo 
de hacerlo consiste en seleccionar un 
lugar (C), que se encuentre entre A y 

B, y decidir cómo viajar desde A hasta 

C. A continuación conduce su coche 
hasta C. 

Una vez en C, el conductor mira si 
puede viajar directamente desde C 
hasta B. Si es posible, lo hace. En caso 
contrario, repite el proceso anterior 



eligiendo un nuevo lugar (D), entre C 
y B. Este proceso se repite hasta que 
el conductor llega a B, su punto de 
destino. 

Este ejemplo simple demuestra ade- 
cuadamente los principios de la recur- 
sión tai como se aplican a la progra- 
mación de ordenadores. La solución 
de un problema difícil se describe en 
términos de problemas más sencillos 
(o más cortos). 

A medida que se alcanza cada sub- 
tarca (o nivel) de la recursión, resulta 
a menudo necesario almacenar la in- 
formación relativa a ía posición ante- 
rior, alcanzada en el nivel precedente, 
para volver más adelante a ella. A me- 
dida que se entra en cada nivel, se ob- 
tiene un conjunto de parámetros dis- 
tintos y se efectúa una comprobación 
para determinar si se ha completado la 
tarea completa. Sin dicha comproba- 
ción, el proceso no terminaría nunca. 
Para ver el método utilizado, intro- 
duce y ejecuta el primer programa, 
que imprime los enteros positivos 
desde un valor de entrada (N) hasta 
uno. 

PRINT '[SHIFT+CLR/HOMEH 
CRSR ABAJO]>[CRSR DCH 
AJ[CTRL + 9]N. ENTEROS 
POSITIVOS DESDE N HASTA 1' 
PRINT :PRINT '[CRSR 
ABAJO][ 6 

ESPAC10S]ENTRAR EL 




E2 í ~l g 





VALOR ENTERO QUE DESEAS 

DESCONTAR (1-22)' 
35 INPUT N:N = INT (N):iF N<1 

OR N>22 THENEND 
40 GOSUB 80 
50 GOTO 30 

80 IF N = THENRETURN 
90 PRINT IMV; 
100 N = N-l:GOSUB 80 
110 RETURN 

El programa te permite introducir el 
valor del mayor entero a partir del 
cual deseas contar. Si introduces un 
valor menor de uno, se detiene el pro- 
grama. Los valores superiores a 22 
también detienen el programa porque 
el micro sólo puede recordar 23 saltos 
a una subrutina. La línea 40 llama la 
subrutina recursiva, cuya primera lí- 
nea comprueba si 
se ha completado 
la tarea entera. 

Dicha compro- 
bación es crucial 
para terminar las 
llamadas recursi- 
vas. Se entra en el 
primer nivel de re- 
misión con el va- 
lor de N que has 
especificado. 

Dicho valor se imprime en la línea 
90. Se entra en el segundo nivel en la 
línea 100, que reduce el valor de N en 
uno y llama la subrutina otra vez con 
el nuevo valor de N. El programa con- 
tinúa el bucle entre las líneas 80 y 100, 
imprimiendo sucesivamente cada en- 
tero. 

Cuando N se reduce a (en la línea 
100), el programa bifurca del modo 
habitual a la línea 80, en donde esta 
vez deberá obedecer ta instrucción 
RETURN. Esto provoca un retorno 
desde la subrutina llamada en la línea 
100. La siguiente instrucción se en- 
cuentra en la línea 110, que provoca 
un retorno desde la subrutina llamada 
en la línea 40. La instrucción siguiente 
(línea 50) ejecuta de nuevo el pro- 
grama. 

Observa que el programa termina 
con un valor de N = 0, según la línea 
100, pero que la línea 90 no imprime 
nunca dicho valor. Para restaurar N al 



último valor impreso, puedes teclear 
N = N + 1 como línea 105, A conti-]TT7 
nuación, N tomará el último valor im- <Ji 
preso. 



PROCEDIMIENTOS RECURSIVOS 

10 DIM N(34),A(34) 
30 PRINT f [SHIFT+CLR/HOME][ 
CRSR ABAJO]>[CRSR DCH 




•ÍV: $ 
4 Mí **< 




A.][CTRL + 9][ 2 ESPACIOS 
]CALCULODE[ 3 ESPACIOS 
]':PRINT '[ 2*CRSR DCHA. 
][CTRL+9][ 2 ESPACI0S1F 
ACTORIALESt 2 ESPACIOS 
HCRSR ABAJO]' 

40 PRINT 'ENTRAR EL N. 

FACTORIAL DESEADO (1-33)' 

45 INPUT NU 

50 IF NU>33 OR NUoINT 
(NU) OR NU<0 THENRUN 

60 IF NU = THENPRINT 

■[SHIFT+CLR/HOME]':END 

70 LE=:1(LE) = NU:AN = NU 

80 GOSUB 150 

90 PRINT AN'KCRSR 

DCHA.] = [CRSR DCHA.]';A(1) 
'[CRSR ABAJ0]':G0TO 40 

150 IF N(LE) = THENA(LE)= 1 ; 
GOTO 180 

160 LE = LE+1:N(LE) = N(LE-D- 
1:G0SUB 150 

170 LE = LE-1:A(LE)=A(LE+ 1)* 




180 



N(LE) 
RETURN 



Ejecuta el programa e introduce un 
valor en respuesta al mensaje. El pro- 
grama calcula e imprime el factorial 
del número que hayas introducido, es 
decir el producto de cada entero desde 
uno hasta el propio número inclusive. 
Por ejemplo, 5 factorial (que se es- 
cribe 5!) es 1 x 2 x 3 x 4 x 5 = 120. 
Los cálculos factoriales se requieren a 
menudo en ciertas aplicaciones esta- 
dísticas, por lo que sería útil un mé- 



INPUT 29 



todo simple de generarlos. Pero el mé- 
todo mejor depende del lenguaje que 
utilices. 

El programa dimensiona variables 
(línea 10) en número suficiente para 
completar la tarea. Dichas variables 
de matriz reservan espacio de memo- 
ria para su uso exclusivo, utilizando el 
nivel de recursión (LE) como subín- 
dice de la variable que se esté utili- 
zando en ese momento, N (LE). 

Esencialmente, el programa em- 
pieza en la línea 70, en donde el nivel 
se pone en uno. Además, aquí se 
asigna el número que hayas introdu- 
cido, por ejemplo cinco, a N (1) y a 
AN (la variable que acumula la res- 
puesta). A continuación, la línea 80 
llama al primer nivel de recursión. La 
primera línea de la rutina de recursión 



(línea 150) comprueba si se ha llegado 
al final del problema, cuando N (LE) 
= 0. Pero, por el momento, N ( LE) es 
cinco, por lo que el control pasa a la 
línea 160, Esta incrementa el nivel (a 
dos), pone en 4 el número actual, 
luego llama de nuevo la rutina recur- 
siva y así sucesivamente. Cuando la lí- 
nea 160 incrementa el nivel a seis y de- 
cre menta el número actual a cero, la 
línea 150 detecta que N (6) es cero, 
por lo que el elemento seis de la ma- 
triz. A se pone a uno y la línea 180 en- 
vía un RETURN al final de la línea 
160. Ahora el control pasa a la línea 
170, en donde el nivel se decremenla 
a cinco y A (5) toma un valor igual a 
A (6) veces N (5). Esto hace que A (5) 
sea igual a 1 x 1 = 1. Ahora la línea 
180 devuelve de nuevo el control al fi- 
nal ele la línea 150 en donde, esta vez, 
A (4) toma un valor igual a A (5 ) ve- 
ces N (4). Por lo que A (4) es igual a 
uno (calculado antes) por 2. Este bu- 
cle se continúa tantas veces como se 
haya llamado el GOSUB de la línea 
160. Cuando se completa el bucle, LE 



es igual a uno y el último RETURN 
va a la línea 80. La instrucción si- 
guiente (línea 90) imprime el resul- 
tado, 120. 

DETECCION DE ERRORES 

Para mantener tu programa dentro 
de los límites del micro y evitar catás- 
trofes, debes saber cómo se comporta 
en el nivel más bajo de recursión. Ha- 
bítualmenle, el único medio de estar 
seguro de que funciona correctamente 
consiste en utilizar datos de compro- 
bación de ios que estés seguro. Un 
método simple consiste en considerar 
una subrutina recursiva como si fuera 
un grupo de copias similares de la 
misma subrutina. Ten en cuenta que 
efectuar saltos condicionales fuera de 
las subrutinas se considera habitual- 
mente una mala práctica de progra- 
mación, ya que la pila queda sin de- 
i n i r . 

Cuando escribas este tipo de subru- 
tinas. empieza siempre por una com- 
probación de salida efectiva. Dicha 





comprobación se utiliza para decidir si 
el problema (tal como viene determi- 
nado por los parámetros de entrada) 
puede resolverse directamente, sin ne- 
cesidad de subdivisión. 

Antes de que empieces a progra- 
mar, planea lo que quieres conseguir 
con la subrutina. A continuación, 
cuando estes escribiendo el pro- 
grama, no te preocupes demasiado 
por la secuencia exacta de e jecución, 
v considera en cambio los dos prin- 
cipios principales, la condición de 
parada y la subdivisión en problemas 
más sencillos. Siguiendo este mé- 
todo, deberías ser capaz de progra- 
mar alguna de las utilidades prácticas 
de la recursión. Veamos a continua- 
ción un ejemplo de cómo la recursión 
puede mejorar en gran medida la cla- 
ridad y la eficiencia de un programa 
de ordenación. 

10 PRINT '[SHIFT + CLR/HOMEH 
CRSR ABAJO]>lCRSR DCH 
A.][CTRL + 9]0RDENACI0N 

RAPIDA' 
PRINT '[CRSR 
ABAJOJCUANTOS NUM. 
DESEAS ORDENARMNPUT 
'(1-300)[CRSR DCHA.]';A 
IF A< OR A>300 THEN 
RUN 

D1M A(A),R(1 + SQR(A)) 
A(A) = 100:PRINT '[CRSR 
DCHA.HCRSR ABAJO][CTRL + 
9]TABLA DESORDENADA:-' 
:FOR K-0 TO A-1:A(K) = IN 
T (RND(1)*99) 
PRINT A(K);:NEXT K:PRINT 
L = 0R=A-1:GOSUB 1000 
PRINT '[CRSR DCHA.][CRSR 
ABAJ01ÍCTRL + 91TABLA OR 
DENADA:-':FOR K-0 TO A 
-1:PR1NT A{K);:NEXT K 
90 GET Z$:IF Z$<>' ' THEN90 
100 RUN 

1000 IF R>L THENI = LJ = R+1: 
V = A(L):GOTO 1010 
RETURN 
l = l + :IF A(1)<V 
THEN1010 
J=J-1:IF A(J)>V 
THEN1020 



30 



40 

50 
60 



65 
70 
80 



1005 
1010 

1020 



^Programaciói^ 




1030 IF J> = l THENT=A(I ) = A(J 
):A(J) =T:GOTO 1010 

1040 T=A(L):A(L) = A(J):A(J)-T 

1050 R(LV)=R:LV = LV+1:R = J-1 
;GOSUB 1000 

1060 LV = LV-1:R = R(LV):L=I:G0 
SUB 1000 

1070 RETURN 

El programa te permite introducir la 
cantidad de números aleatorios que 
deseas ordenar. La línea 50 dimen- 
sión a una matriz A (A), para alma- 
cenar dichos números, y otra matriz, 
R, para almacenar las variables para 
las llamadas recursivas. La línea 60 ge- 
nera e imprime los números aleatorios 
desordenados, mientras que la línea 



70 llama la subrutina recursiva que los 
pone por orden ascendente. La línea 
80 imprime la tabla de n Cimeros . 

El método utiliza algunos aspectos 
de la intercalación de listas a partir de 
dos subcon juntos y algunos aspectos 
de la ordenación ele sublistas. La lista 
principal se divide en dos subconjun- 
tos (líneas 1010 y 1020). Observa la 
comprobación de salida crucial (línea 
1000) para determinar cuándo debe 
terminar la recursión. Cada uno de los 
dos subcon juntos se ordena en una pa- 
sada (línea 1030). Vuelven a dividirse 
los subconj untos, pero dos de ellos se 
juntan formando uno de los nuevos 
subcon juntos y, a continuación, cada 
uno de dichos nuevos subcon juntos se 
ordena en la pasada siguiente. Luego 
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la subrutina se llama a sí misma (línea 
1050) repetidamente hasta completar 
la ordenación. 

Aunque este método de ordenación 
en BASIC no es tan rápido como en 
código máquina, es extremadamente 
rápido. 



RANGO AMPLIADO 

La utilidad de la recursión flega más 
allá del cálculo de factoriales y de 
otras aplicaciones matemáticas. La re- 
cursión puede ser extremadamente 
útil en programas de juegos y para ge- 
nerar figuras gráficas complicadas. 
También puede aplicarse esta técnica 
a la inteligencia artificial (AI - Arti- 
ficial Intelligence), por ejemplo tanto 
en control de robots como en progra- 
mas de juegos. Métodos similares se 
usan también en el proceso de lengua- 
jes (compiladores e intérpretes). 

En el ajedrez y en los programas de 
estrategia se utiliza la recursión. Intro- 
duce el siguiente programa para ver 
una ilustración simple de dicha apli- 
cación en el problema clásico de las 
Torres de Hanoi. 




20 PRINT '[SH¡FT + CLR/HOME][ 
CRSR ABAJO]>[CRSR DCH 
A.][CTRL + 9]T0RRES DE H 
ANOT 

30 PRINT '[CRSR ABAJ0]NUM. 

DE ANILLOS (2-9)' 
40 INPUT N:IF N<2 OR N>9 

THENRUN 
50 TT = 2:TF=1:R=3:G0SUB 9 



60 PRINT '[CRSR ABAJO] M OV 1 M 
IENT0S REALIZAD0S = ' ; 2 
t N-l 

70 END 

90 IF N = THENRETURN 




i » 



X 



;4 




100 N = N-1:W = R:R=TT:TT=W: 
GOSUB 90:W=R:R-TT:TT 

=w 

110 PRINT 'ANILLO'; N ; 'DE TO 
RR E' ;TF; ' HASTA TORRE 1 ; 
TT 

120 W=R:R-TF:TF-W:GOSUB 

90:W=R:R=TF:TF-W 
130 N = N + 1:RETURN 

El problema tradicional consta de 
tres palos montados sobre una super- 
ficie. En el primer palo se ensartan un 
cierto número de discos de diámetro 
variable. El objeto consiste en trans- 
ferir la pila de discos de uno a otro 
palo. Los discos pueden moverse sólo 
de uno en uno y ningún disco puede 
quedar nunca sobre otro menor que 
él. El tercer palo se utiliza como lugar 
de paso mientras se mueven los discos. 
La versión para ordenador da una re- 
presentación gráfica del problema. 
Ejecuta el programa e introduce el nú- 
mero de discos que deseas manejar. 
La transferencia de discos es rápida, 
por lo que no serás capaz de seguir 
cada movimiento a menos que modi- 
fiques el programa para retardarlo del 
modo siguiente. 

Inserta una nueva línea: 

115 POKE 198,0:WAIT 198,1 

Este cambio hace que el programa 
se ejecute sólo cuando pulses una te- 
cla. 

El programa que resuelve el pro- 
blema está mejor planteado para uti- 
lizar la recursión. El formato es simi- 
lar al de los programas anteriores. La 
subrutina recursiva imprime sucesiva- 
mente cada movimiento de uno a otro 
palo hasta que se completa el pro- 
blema. El número total de movimien- 
tos efectuados se calcula y se visualiza 
después de cada jugada. 

Por tanto, para problemas alta- 
mente complicados que requieran sub- 
división, la recursión a menudo es el 
mejor método de programación. Sin 
embargo, si el espacio de memoria es 
limitado, la recursión puede ser extre- 
madamente costosa, tanto en tiempo 
como en espacio, Pero si una subru- 
tina o procedimiento se llama a sí 
mismo más de dos veces, la recursión 
es quizás el mejor método a utilizar. 



32 INPUT 



animación resulte más realista). Por 
último están la forma del globo y el di- 
bujo de un globo que explota. Con dos 
caracteres describirás la flecha y con 
otros dos, la escalera. Esto da un total 
de 26 caracteres. 

En esta primera parte tienes esta- 
blecidos los gráficos e inicializado el 
juego. 

El programa para el Commodore 
difiere de los de otros ordenadores 
como el Spectrum. Trataremos de al- 
gunos aspectos. 

INIC1ALIZACION DE LOS 
GRAFICOS 

10 POKE 51,255:POKE 52,47::P 
OKE 55,255:P0KE 56,47: 
CLR:PRINT'[SHIFT + CLR/HO 
ME]ESPERAR UN 
MOMENTO 



15 GOSUB 1000 

999 GOTO 999 

1000 POKE 55 334,0:POKE 1, 
51:F0R 1=0 TO 64*8-1 :P 
OKE 1228 8 + l,PEEK(53 
248+l):NEXT 1 

1010 POKE l,55:POKE 56334,1 
1020 FOR Z-13312 TO 

13527:READ X:POKE Z, 

X:NEXT ZiRETURN 
1050 DATA 15,63,127,255,255, 

255,255,127 
1060 DATA 240,252,254,255, 

255,255,255,254 
1070 DATA 127,63,63,31,15,7, 

3,6 

1080 DATA 254,252,252,248,2 

40,224,192,96 
1090 DATA 32,96,255,255,96, 

32,0,0 

1100 DATA 5,10,252,252,10,5, 
0.0 

1110 DATA 1,64,17,40,16,0,0, 
161 

1120 DATA 128,2,136,20,8,0,0 



1130 DATA 161,0,0,16,40,17,6 
4,1 

1140 DATA 133,0,0,8,20,136,2 
,128 

1150 DATA 48,48,48,48,111,1 

11,48,48 
1160 DATA 12,12,12,12,246,2 

46,12,12 
1170 DATA 7,31,49,57,127,11 

2,237,255 
1180 DATA 224,248,140,204,2 

54,14,183,255 
1190 DATA 127,59,51,99,115, 

35,6,12 
1200 DATA 254,108,102,51,49 

,25,24,48 
1210 DATA 7,31,49,51,127,11 

2,235,255 
1220 DATA 224,248,140,156,2 

54,14,215,255 
1230 DATA 127,51,50,27,25,5 

0,112,224 
1240 DATA 254,204,108,102,5 

4,22,3,6 
1250 DATA 5,31,19,55,55,63,6 
3,15 

1260 DATA 240,248,248, 252^ 

252,252,252,240 
1270 DATA 251,219,139, 
219,219,251,247, 
239 




1280 DATA 252,254,254,254,2 

54,254,254,252 
1290 DATA 95,127,31,31,31,6 

3,127,127 
1300 DATA 188,188,188,188,1 

88,124,248 
1310 DATA 239,239,239,0,247 

,247,247,0 



rutina contiene todos los 
necesarios para establecer 



Esta 
DATA 

los gráficos. Los UDG se establecen 
para Freddy, la araña, la escalera y las 
plataformas de la parte superior e in- 
ferior de la pantalla gracias a un 
POKE en la memoria, después de que 
la línea 10 ha preparado (clear) el es- 
pacio suficiente. 

Y AHORA LA PANTALLA 

20 POKE 53272, 28:G0SUB 
2000 

2000 POKE 53280, 0:POKE 532 
81.0-.PRINT [SHIFT + CL 
R/H0ME][CTRL + 4][CRSR 
DCHA.]L = [CRSR DCHA. 
]0[ 3*CRSR DCHA.][B = [ 
CRSR DCHA.]20[ 5*CRS 
R DCHA.]SC = [CRSR DC 
HA.]0[ 6*CRSR DCHA.] 
HS = 'HS'[CRSR ABAJO]' 

2010 FOR Z=l TO 2:PRINT TCT 
RL + 9][C0MM. + 1]ZZZZZZ 
ZZZZZZZZZZZZZZZZZZZZ 
ZZZZZZZZZZZZZZt 2*CRS 
R ABAJO][CTRL+0]'¡:NE 
XT Z 

2015 PRINT '[CLR/H0ME][ 

3*CRSR ABAJO]'; 
2020 FOR Z=l TO 2:PRINT 
'[CTRL + 2JI 11*CRSR 
DCHA.])[ 11*CRSR 
DCHA.])[ 11*CRSR 
DCHA.])L 2*CRSR 
DCHA.])':NEXT Z 



2030 PRINT TAB(36)TCTRL + 8][ 

CTRL + 9]JK':PRINT '[CR 

SR ARRIBA]'; :F0R Z=l 
TO 16:PRINT SPC{36)' 

[CTRL + 8I 

[CTRL + 9]JK': 

NEXT Z 
2040 FOR Z-l TO 

2:PRINT TC^W^ 

TRL+9] ' " 

[CRSRARR 

IBA]ZZZZZZ 

ZZZZfCOMM 

ZZZZZZZZZZtCOM 

M + 8]ZZZZZZZZZZ 

LCTRL + 21ZZZZZZZ 

ZZZ[CTRL+0]'; 
2050 NEXT Z:RETURN 



La línea 20 conecta al nuevo juego 
de caracteres y después salta hasta la 
rutina de la línea 2000. Se dibuja 
la pantalla, que incorpora un marca- 
dor y las posiciones superiores del 
marcador. La línea 2010 dibuja la 
jaula de la araña, la 2030 la escalera, 
y la 2040 el suelo. 






FREDDY Y LA ARAÑA 
DE MARTE (Y II) 



CULMINACION DEL JUEGO 



EL BUCLE PRINCIPAL 



FREDDY COMO DESAYUNO 



ANIMACION DE LA ARANA 



ESTALLIDO DE LOS GLOBOS 



El juego está inicializado. Freddy es- 
pera en la escalera. Sus flechas son agu- 
zadas, los globos están inflados y a la 
araña se le hace la boca agua. 

En la primera parte de Freddy y la 
araña de Marte introdujiste las rutinas 
de inicialización y de gráficos. Ahora 
reúnelas añadiendo las rutinas de ani- 
mación. 

La introducción de estas rutinas 
completará el juego. 

PREPARACION DE LAS 
VARIABLES 



30 B$ = "(o)A[CRSR ABAJOH 2 
*CRSR IZQDA. ]BC":AR$=" 
DE":E$ = "FG[CRSR ABAJO] 
L 2*CRSR IZQDA. ]H!":M$( 
1) = "LM[CRSR ABAJOH 2* 
CRSR IZQDA. ]NO":M$(2) = 
"PQ[CRSR ABAJOH 2*CRS 
R IZQDA.1RS" 

40 S$ = "[CTRL + 9][CTRL+5]TU 
[CRSR ABAJOH 2*CRSR IZ 
QDA.]VW[CRSR ABAJOH 2* 
CRSR IZQDA.][CTRL + 3]XY" 
:L(1)=8:L(2) = 20:L(3) = 32: 
L=0:M=0:D=1:BL=20:BB 
= 20:SP = .3 

50 Y$ = "[CLR/HOME][ 25*CRS 
R ABAJO]":F$(l) = ")[CRS 
R ABAJO][CRSR IZQDA.])": 
F$(2) = "([CRSR ABAJO][CR 
SR IZQDA. ](":LL=0 

60 SY = 7:SD$ = "[CTRL + 9][CTR 
L + 8]JK[CRSR ABAJO][ 2*C 
RSR IZQDA. ]JK[CRSR ABAJ 
0][ 2*CRSR IZQDA. ]JK":K 
K = 0:SC = 0:F = 

70 GOTO 90 

Estas líneas simplemente inicializan 
las variables y cadenas necesarias. 



EL GLOBO SUBE 



80 FOR Z=15 TO STEP- 

1:P0KE 646, Z 
85 PRINT LEFT$(Y$,BY)SPC (BX) 

"[CTRL+9]"E$:NEXT Z:IF 

KK = 1 THENKK = 0: 

GOTO 98 
90 L=L+1:PRINT 

"[CLR/H0ME][CTRL+4][ 

3*CRSR DCHA.]"; L 
95 IF L = 4 THENL=3:LL=1:L{ 

3)=L(3) + 3 

98 BX= I NT (RND(l) 
*25) + l:BY=21 

99 POKE 198,0:IF L=l 
THEN150 

125 PRINT LEFT$(Y$, 
BY)SPC(BX) 

"[CTRL+9][CTRL+1]"B 

130 BY=BY-SP:IF BY<8 

THENPRINT "[CLR/HOME][ 
3*CRSR ABAJ0][CTRL+1] 
SPC(L(L) + 3F$(1):G0SUB 
6000:GOTO 80 

135 PRINT LEFT$(Y$, 
BY)SPC(BX) 

"[CTRL+9][CTRL+4J"B$ 
6000 BL=BL-1:IF BL<0 THE 
NBB = BB + 5:BL=BB:SP = 
SP + .3 

6010 PRINTHCLR/HOME] 
[CTRL+4]"SPC 
(10)BL"[CRSR IZQDA.] 
":RETURN 

Hay cuatro rutinas separadas que 
tienen relación con los globos. Las lí- 
neas 80 y 85 forman la rutina de es- 
tallido del globo, y se utilizan cuando 
la flecha da en el blanco. Las líneas 90 
a 99 determinan el nivel y la posición 
del globo. Las líneas 125 a 135 animan 
los globos mientras flotan por la pan- 
talla. Las líneas 6000 a 6010 ponen en 



movimiento el globo siguiente (una 
vez que el anterior ha estallado o ha 
llegado a la jaula) e incrementan la ve- 
locidad del mismo. 

FREDDY SE MUEVE 

138 IF F=0 THENPRINT 

LEFT$(Y$,SY+1) 

SPC(35)" " 
140 GET A$:1F A$ = "" THEN180 
150 IF A$ = "[CRSR ABAJO]" 

AND SY>8 THENGOSUB 

4000:SY=SY-1 




Juegos INPUT 163 



160 IF A$="[CRSR DCHA.]" 

AND SY<20 THENGOSUB 

4000:SY=SY+1 
165 PRINT LEFT$(Y$, 

SY)SPC(36)S$ 
170 IF A$=" " AND F=0 

THENF=1:XX=34:YY=SY+1 
180 IF F-0 THENPRINT LEFT$( 

Y$,SY + 1) SPC{35)"[CTRL 

+ 9][CTRL + 2]D" 
900 GOTO 100 
4000 PRINT LEFT$(Y$,SY) 
SPC(36)SD$:RETURN 

Las líneas 138 a 180 mueven a 
Freddy como respuesta a las teclas 
pulsadas por el jugador. Las líneas 150 
y 160 leen las dos teclas del cursor, uti- 
lizadas para controlar el movimiento 
hacia arriba y hacia abajo, mientras 
que la línea 170 comprueba si se ha 
pulsado la barra espaciadora. Si ha 
sido así, se lanza una flecha y se activa 
el indicador de disparo, F. 

Si el jugador utiliza las teclas de 
control del cursor para mover a 
Freddy, se llama la rutina de borrado 
del hombre de la línea 4000, obtenién- 
dose la animación del mismo. 



PASE AL SALON 



CTRL + 9]"SPC(M)M$(RND( 

1)*2 + 1) 
103 IF M = 36 THEN3000 
105 M = M + D;IF M<1 OR 

M>L<L) THEND=-D:G0T0 

100 

110 PRINT "[CLR/HOMEH 

3*CRSR ABAJ0][CTRL+6][ 
CTRL + 9]"SPC(M)M$(RND( 
1)*2 + 1) 

120 PRINT "[CLR/HOME] 
[CTRL+9H 3*CRSR 
ABAJ0][CTRL+2]"SPC 
(L(L)+3) F$ (RND(1)*2 + 1) 

122 IF F=l THEN5000 

123 IF LL = 1 THEN138 

Las líneas 100 a 120 animan la 
araña, haciendo que deambule por su 
jaula. La línea 122 llama la rutina de 
animación de la flecha si el indicador 
de disparo ha sido activado, mientras 
que la línea 123 hace que el programa 
salte a la rutina de movimiento del 
globo. Manipulando el valor de LL, 
puede regularse la velocidad del 
globo, o mejor la frecuencia con la 
que se llama la rutina de movimiento 
del globo. 



TODO UN CARCAJ 



5020 PRINT LEFT$(Y$,YY)SPC 
(XX) "[CTRL+2HCTRL+9]" 
AR$ 

5030 IF (XX=BX OR XX+1 = BX) 
AND (INT (BY)-INT (YY) 
0R INT (BY+D-INT (YY)) 
THEN5050 

5040 GOTO 123 

5050 PRINT LEFT$(Y$,YY)SPC(X 
X)"[CTRL+1][CTRL + 9]"A 
R$ 

5055 F=0:KK=1:SC=SC+INT (( 
26-YY)/2):PRINT "[CLR/ 
HOME][CTRL+4]"SPC(21 
)SC 

5060 GOSUB 6000:GOTO 80 

Esta rutina anima la flecha borrán- 
dola de la última posición y volvién- 
dola a imprimir en la nueva posición. 
Además, el programa Commodore 
tiene en cuenta la gravedad. 



¿COMIDA RAPIDA? 



3000 IF F-0 THENPRINT LEFT$ 
(Y$,SY+1)SPC{35)" " 

3005 FOR Z=7 TO 21 

3010 PRINT LEFT$(Y$,Z— 1)SPC 
(M) "[CTRL+8][CTRL+9] 
JK" 

3020 PRINT LEFT$(Y$,Z)CHR$( 
153)"[CTRL + 9]"SPC(IV1) 
M$(RNDU)*2 + 1):F0R 
ZZ=1 TO 20:NEXT ZZ,Z 
3030 IF SOHS THENHS-SC 
3040 PRINT "[CRSR ABAJOH 

2*CRSR DCHA.][CTRL+6] 
ESTAS MUERTO !!![ 3* 
CRSR DCHA.][CTRL+8]0 
TRO JUEGO (S/N)?" 
3050 GET A$:IF A$-"S" 

THEN20 
3060 IF A$o"N" THEN3050 
3070 PRINT "[SHIFT+CLR/HOM 
E]":P0KE 53272, 21:EN 
D 

Las líneas 3000 a 3020 animan la 
araña, moviéndola escalera abajo y 
comiéndose a Freddy. El resto de la 
rutina actualiza la puntuación má- 
xima, si es necesario, y ofrece otra 



100 PRINT "[CLR/H0ME][ 

3*CRSR ABAJO][CTRL+l][ 




5000 PRINT LEFT$(Y$,YY)SPC(X 
X)"[CTRL+1][CTRL + 9]"A 
R$ 

5005 IF YY<20 THENYY = YY + .l 
5010 XX=XX-1:IFXX<0 

THENF=0-.GOTO 123 




Código Máquina 





i? . 



ABISMO: PELIGROS 
Y PREMIOS (III) 



Willie necesita un acantilado en 
el que poder realizar sus osadías. 
Y tú precisas saber cómo combi- 
nar las dos partes de programa 
que llevas escritas hasta aquí. 

Ya ha llegado el momento de di- 
bujar el acantilado que tiene que es- 
calar Willie. Para trasladarlo a la pan- 
talla, necesitas una gran cantidad de 
datos. Una vez más haremos uso de un 
programa en BASIC para pokear los 
datos en una tabla. 

El siguiente programa proporciona 
los datos necesarios para los sprites: 
nubes, gaviotas, piedras, golosinas 
para la merienda, grietas, serpientes y 
el propio Willie. Tal vez te parezca 
que hay demasiados datos aquí, pero 
para tener una buena sensación de 
animación, tienes que dibujar los ob- 
jetos móviles en varias posiciones. Los 
sprites se alternan entonces para dar la 
impresión de una acción continua. 

10 REM *** DATAS PARA LOS 

SPRITES. *** 
20 V=53248 
30 S=230 

40 F0RI=S*64T0(S + 8) *64 

50 READA:POKEI,A:NEXT 

60 POKEV+21,1:POKEV,100:PO 

KEV+1,100:POKEV + 39,0:P 

OKE2040,237 
100 PRINT"(CRL) LOS SPRITES 

YA ESTAN CREADOS.!!!" 
110 END 

14720 DATA 0,0,0,0,0,0,0,0,0,0 
14730 DATA 0,0,0,7,128,0,7, 
6,4,0,7 

14740 DATA 128,0,7,128,0,15, 

192,0,11,64 
14750 DATA 0,11,64,0,11,64,0 

,12,192,0 
14760 DATA 7,128,0,3,0,0,3,0, 

0,3 

14770 DATA 0,0,3,0,0,3,0,0,3, 



128 

14780 DATA 0,3,192,0,0,0,0,0 
,0,0 

14790 DATA 0,0,0,0,0,0,0,7, 
128,0 

14800 DATA 7,64,0,7,128,0,7, 

128,0,15 
14810 DATA 192,0,11,64,0,6, 

96,0,28,112 
14820 DATA 0,56,216,0,7,128, 

0,3,128,0 
14830 DATA 3,192,0,31,96,0, 

31,96,0,24 
14840 DATA 56,0,16,60,0,0,0, 

0,0,0 

14850 DATA 0,0,0,0,0,0,0,0,0 


14860 DATA 0,0,0,0,0,0,0,0, 

14870 DATA 0,0,0,0,0,0,0,0,0, 


14880 DATA 0,0,30,0,0,63,0,0, 
94,128 

14890 DATA 0,237,192,0,243, 
192,0,243,192,0 

14900 DATA 237,192,0,94,128, 
0,63,0,0,30 

14910 DATA 0,0,0,0,0,0,0,0,0, 
15 

14920 DATA 192,0,245,96,15, 
170,160,245,85,96 



14930 DATA 255,170,224,255, 
245,224,255,255,224, 
143 

14940 DATA 255,224,128,255, 
224,240,15,160,255,0 

14950 DATA 32,255,240,96, 
255,255,224,15,255, 
224 




14960 DATA 0,255,192, 
0,15,128,0,0,0, 


14970 DATA 0,0,0,0,0, 

0,0,0,0,0 
14980 DATA 0,0,0,0,0, 

0,0,0,0,0 



INPUT 



14990 DATA 0,0,24,0,0,60,0,0 
,102,0 

15000 DATA 0,60,0,0,120,0,0, 

120,0,0 
15010 DATA 120,0,0,60,0,0,30, 

0,0,30 

15020 DATA 0,0,30,0,0,60,0,0 
,120,0 

15030 DATA 0,120,0,0,48,0,0, 
32,0,0 

15040 DATA 0,36,0,0,24,0,0,8 
,0,0 

15050 DATA 16,0,0,8,0,0,24,0, 
0,60 

15060 DATA 0,0,102,0,0,60,0, 

0,120,0 
15070 DATA 0,120,0,0,120,0,0 

,60,0,0 

15080 DATA 30,0,0,30,0,0,30, 
0,0,60 

15090 DATA 0,0,120,0,0,120,0 
,0,48,0 

15100 DATA 0,32,0,0,0,0,0,0, 
0-0 

15110 DATA 0,0,0,0,0,0,0,0,0, 


15120 DATA 0,0,0,255,0,0,255 

,0,0,255 
15130 DATA 0,0,255,0,0,255,0 

,0,255,0 
15140 DATA 0,255,0,0,255,0, 

0,255,0,0 
15150 DATA 255,0,0,255,0,0, 

255,0,0,255 
15160 DATA 0,0,255,0,0,255,0 

,0,0,0 

15170 DATA'0,0,0,0,0,0,0,0, 
192,0 

15180 DATA 1,32,192,2,27,48, 

26,4,8,36 
15190 DATA 8,8,66,8,16,130,4 

,96,132,0 
15200 DATA 144,128,0,8,64,0, 

8,68,33,48 
15210 DATA 56,65,64,8,64, 

128,7,35,0,0 
15220 DATA 220,0,0,0,0,0,0,0, 

0,0 

15230 DATA 0,0,0 

El siguiente programa te propor- 
ciona los gráficos definidos por el 
usuario que intervienen. También se 

38 INPUT 



definen las letras del alfabeto. Con 
esto consigues una tipografía única 
para todo el juego. Aunque esto no es 
estrictamente necesario, suele hacerse 
con frecuencia en los juegos comercia- 
les. 

10 REM ** DATAS PARA LETRAS 
Y CARACTERES ESPECIALES 

20 FOR 1-0 TO 263:READ 
A:P0KE 12288+1, A:NEXT 

30 PRINT "[SHIFT+CLR/HOME][ 
5 ESPACIOSJESTA 
PREPARADO UN NUEVO 
JUEGO DE" 

40 PRINT "LETRAS Y ALGUNOS 
CARACTERES ESPECIALES." 

50 END 

12288 DATA 60,66,153,145, 

145,153,66,60 
12296 DATA 56,68,130,130, 

254,130,130,0 
12304 DATA 248,132,130,252, 

130,130,252,0 
12312 DATA 124,130,128,128, 

128,130,124,0 
12320 DATA 248,132,130,130, 

130,132,248,0 
12328 DATA 248,132,128,248, 

128,132,248,0 
12336 DATA 248,132,128,248, 

128,128,128,0 
12344 DATA 120,132,128,152, 

132,132,120,0 
12352 DATA 132,132,132,252, 

132,132,132,0 
12360 DATA 56,16,16,16,16, 

16,56,0 
12368 DATA 56,16,16,16,16, 

144,112,0 
12376 DATA 132,136,144,224, 

144,136,132,0 
12384 DATA 128,128,128,128, 

128,128,252,0 
12392 DATA 130,198,170,146, 

130,130,130,0 
12400 DATA 130,194,162,146, 

138,134,130,0 
12408 DATA 124,130,130,130, 

130,130,124,0 
12416 DATA 124,130,130,252, 

128,128,128,0 



12424 DATA 124,130,130,146, 

138,134,124,0 
12432 DATA 124,130,130,252, 

136,132,130,0 
12440 DATA 120,132,128,120, 

4,132,120,0 
12448 DATA 254,146,16,16,16, 

16,16,0 

12456 DATA 130,130,130,130, 

130,130,124,0 
12464 DATA 130,130,130,130, 

68,40,16,0 
12472 DATA 130,130,146,146, 

146,146,124,0 





Código Máquina 




12480 DATA 130,68,40,16,40, 

68,130,0 
12488 DATA 130,68,40,16,16, 

16,16,0 

12496 DATA 254,4,8,16,32,64, 
254,0 

12504 DATA 56,56,16,254,40, 

68,130,0 
12512 DATA 170,170,170,255, 

255,255,255,255 
12520 DATA 3,7,15,31,31,63, 

63,127 

12528 DATA 223,239,255,255, 
239,247,255,255 



12536 DATA 223,239,255,255, 

239, 247,255,255 
12544 DATA 0,0,0,0,0,0,0,0 



Ejecuta estos programas y a conti- 
nuación almacena la tabla de datos en 
código máquina que resulta, para lo 
cual puedes utilizar tu monitor de CM, 

AGRUPANDO LAS PIEZAS 

Los programas largos con frecuen- 
cia han de ser escritos y ensamblados 
por partes. Esto te plantea el pro- 




blema de la mezcla de las distintas par- 
tes para obtener un único programa 
largo que funcione. Y el hecho de que 
todas las partes funcionen separada- 
mente, no significa necesariamente 
que todo vaya a seguir funcionando al 
ponerlo todo junto. 

Cuando una rutina llama a otra, 
siempre existe el problema de que la 
llame en el lugar inadecuado. Y tam- 
bién puede ocurrir que las tablas de 
datos no coincidan adecuadamente 
con los correspondientes punteros de 
datos. Pero estos problemas se pueden 
eliminar corrigiendo detenidamente 
los programas individuales componen- 
tes. 

Esto significa que cuando hayas ter- 
minado de mezclar todas las partes del 
programa, no habrás perdido nada en 
el proceso. Por desgracia, es muy fácil 
perder uno o dos bytes al encadenar 
varios programas diferentes en la me- 
moria. E incluso la pérdida de un solo 
byte puede originar que todo el pro- 
grama se interrumpa o funcione mal. 

Uno de los problemas más frecuen- 
tes es la sobreescritura. Si tienes al- 
gunos bytes de más, existe el peligro 
de que escribas algunos de ellos por 
encima de la rutina siguiente. Si estás 
almacenando las rutinas ensambladas 
con ayuda de tu monitor en código 
máquina, tienes que indicar la direc- 
ción de comienzo y el número de bytes 
que quieres guardar. 

Con las direcciones iniciales no hay 
evidentemente ningún problema. Con 
el CM ensamblado a partir de) pro- 
grama en lenguaje ensamblador, la di- 
rección de comienzo del código objeto 
es la misma que la de origen. Al fin y 
al cabo, cuando se hace actuar el en- 
samblador, éste va tomando las direc- 
ciones y ensamblando el programa en 
código máquina a partir de la direc- 
ción inicial. Y además, con las tablas 
de datos pokeadas a partir del BASIC, 
la dirección de comienzo es el valor 
inicial de la variable que controla el 
bucle FOR ... NEXT, el cual va ex- 
trayendo los datos y almacenándolos 
en memoria byte a byte al ejecutar el 
programa, 

Pero el cálculo del número de bytes 
que hay que almacenar en memoria 
puede ocasionarte algún problema. La 

INPUT 39 




dirección final que dan los ensambla- 
dores es con frecuencia la primera di- 
rección libre que sigue al final del pro- 
grama. Lo único que se da a veces es 
la dirección de comienzo de la última 
instrucción, por lo que si la rutina no 
termina con un RTS no se obtendrá 
una verdadera dirección final. 

La manera usual de obviar este pro- 
blema es almacenar un par de bytes 
adicionales, Pero esto puede ocasio- 
nar problemas de sobreescritura. La 
solución está en cargar tus programas 
ordenadamente en la memoria por 
medio del comando LOAD «nom- 
bre», 1, L Carga en primer lugar el 
que tiene el valor más bajo de direc- 
ción inicial, a continuación el siguiente 
que la tenga más baja, etc. De esta 
forma resulta que los posibles bytes 
adicionales que haya al final de la ru- 
tina quedarán borrados al escribirse 
sobre ellos parte del principio de la ru- 
tina siguiente. Y también significa que 
cualquer RTS que haya sido añadido 
con fines de prueba de las rutinas in- 
dividuales, quedará igualmente bo- 
rrado. 

ALMACENAMIENTO 

Cuando ya estén cargadas todas las 
rutinas y tablas de datos, almacénalas 
en cinta o disco como un programa 
bajo un nombre distinto; la dirección 
de comienzo será la dirección donde 
empieza el primer programa y la di- 
rección final será la dirección donde 
termina el último programa. Si tienes 
algún problema ahora, puedes agru- 
par las distintas piezas y realizar una 
nueva prueba. Al utilizar la opción 
SAVE de tu ensamblador, no te olvi- 
des de almacenar también los progra- 
mas de lenguaje ensamblador y de po- 
keado en BASIC, en el caso de que los 
vayas a necesitar para volver a ensam- 
blar en una fase posterior. 

Si tienes problemas con las tablas de 
datos, puedes cargar ordenadamente 
en la memoria las rutinas de código 



máquina y cargar y ejecutar nueva- 
mente los programas de pokeado en 
BASIC. Para hacer esto, 
tienes que ir cargando los 
programas uno a uno, eje- 
cutarlos y hacer un NEW 
antes de pasar a cargar el 
siguiente. También en este 
caso tienes que almacenar 



en cinta toda el área de memoria, asig- 
nándole un nuevo nombre de pro- 
grama. 

Ya hemos visto las presentaciones y 
los títulos. Ya hemos escuchado la 
obertura. Es tiempo de que se levante 
el telón. En este caso de Abismo, más 
bien que levantar el telón, tendremos 
que hacer un desplazamiento vertical 
(«scrolling») de pantalla. 

En realidad es un proceso bastante 
sencillo. Ya tienes los datos que defi- 
nen el perfil de la pendiente. Por en- 
cima de la pendiente está el cielo y por 
debajo queda la tierra. Es muy senci- 
llo colorear ambas secciones, Pero 
además tienes que desplazar la página 
de instrucciones y hacer que desapa- 
rezca y en su lugar aparezcan el cielo 
y el abismo. 

Por desgracia es muy difícil hacer un 
scrolling en el Commodore. No obs- 
tante es muy fácil hacerlo en una es- 
cena que ya está dibujada y sólo tiene 
,que repetirse desplazada. Como todas 
las escenas son básicamente iguales, 
no se trata más que de ir tomando lo 
que va desapareciendo por un ex- 
tremo y hacerlo aparecer por el otro 
extremo. Pero hacer que aparezcan 
cosas nuevas en la pantalla, ya es muy 
diferente. Por ello lo que haremos 
será suprimir un nivel tan pronto 
como haya desaparecido la página de 
instrucciones. 

Pero primero tienes que pintar di- 
cho nivel. El siguiente programa en 
BASIC contiene los datos del acanti- 
lado. Este programa traslada dichos 
datos a la pantalla, de modo que pue- 
das apreciar la silueta de la escena. 
Por el momento no tiene mucho sen- 



tido, ya que está en forma de cadenas 
de caracteres ASCII. Pero en seguida 
podrás ver lo que hace. 

El programa BASIC almacena en- 
tonces el contenido de la pantalla en 
otra zona de memoria en donde pueda 
ir a buscarlo el código máquina. Al ha- 
cer esto, realizará la conversión a grá- 
ficos de ROM, de forma que lo que 
aparece entonces en pantalla se parece 
realmente a un acantilado. 



5 REM ** CREA EL ESCENARIO 

DEL JUEGO ** 
10 PRINT "[SHIFT+CLR/HOMEK 

17*CRSR ABAJO]]££[CRSR 
ARRIBA]]££[CRSR ARRIB 

A]]££[[CRSR 

ARRIBA]]££££[CRSR 

ARR!BA]]£[CRSR 

ARRIBA]]£££[CRSR 

ARRIBA]]£££[CRSR 

ARRIBA]]£ CRSR 

ARRIBA1MCRSR 

ARRIBA]]££"; 
20 PRINT "[CRSR 

ARRIBA]]£[CRSR 

ARRIBA]]££££[CRSR 

ARRIBA]]£" 
30 FOR X = TO 39:F=0:FOR 

Y = TO 24 
40 SC=1024:CL = 55296 
50 P=INT (RND(1)*3)+1:IF P=l 

THEIMV-30 
60 IF P = 2 THENV=31 
70 IF P = 3 THENV = 63 
80 C = X + Y*40:IF F=l 

THENPOKE SC + C,V:POKE 

CL + 0,0 
90 IF PEEK(SC + C) = 28 OR 

PEEK(SC + C)-29 THEN F=l 
100 NEXT Y,X 

110 PRINT "[CLR/HOMEHCRSR 
ABAJ01VI DASfCRSR ABAJO][ 
5*CRSR IZQDA.]NIVEL[CRS 
R ABAJOH 5*CRSR IZQD 
AJPUNTOS 000000[CLR/ 
H0ME] , TAB(27) Í, [CRSR A 
BAJO] = [ 3*CRSR DCHA.] 
= [CRSR ABAJO]=" 

120 FOR 1 = TO 

999:P = PEEK(SC-F¡):P0KE 
13312 + 1, P:NEXT 



40 INPUT 




Código Máquina 




130 PRINT T, [CLR/HOME]TERMI 
NADO":STOP 

Puedes guardar estos datos con 
ayuda de tu programa monitor en có- 
digo máquina. La tabla de datos ocupa 
999 bits a partir de ta posición 13312. 

PINTANDO EL PAISAJE 

La siguiente rutina va extrayendo 
los datos del paisaje y los pone en la 
pantalla como parte del juego: 







1 HA =¿é^(f\(f\ 


oáy)¿ 


OO r D 


O 1 H >p r D 


o fTS /l 


AQ M/L 


1 DA #%(f\d 


DÓyJo 


oD ru 


O 1 n 4> r L/ 


corto 

uoyjo 




1 HA 




OD r L 


^TA ^FF 




AQ (Á(f\ 


i DA #$00 

LL/n Tí fS 


630E 


85 FD 


STA $FD 


6310 


A0 00 


LDY #$00 


6312 


Bl FD 


LDA ($FD),Y 


6314 


91 FB 


STA ($FB),Y 


6316 


20 50 51 


JSR $5150 


6319 


E6 FB 


INC $FB 


631B 


D0 02 


BNE $631F 


631D 


E6 FC 


INC $FC 


631F 


E6 FD 


INC $FD 


6321 


D0 02 


BNE $6325 


6323 


E6 FE 


INC $FE 


6325 


A5 FB 


LDA $FB 


6327 


C9 E8 


CMP #$E8 


6329 


D0 E7 


BNE $6312 


632B 


A5 FC 


LDA $FC 


632D 


C9 07 


CMP #$07 


632F 


D0 El 


BNE $6312 


6331 


60 


RTS 



A continuación os presentamos su 
cargador en BASIC: 



10 
20 
30 

40 



S=0 

FOR AD-25344 TO 25393 

READBY:POKEAD, 

BY:S = S + BY 

NEXT 



50 IFS<>8245 THEN 
PRINT"ERROR EN LOS 
DAT0S":END 

25344 DATA 169,0,133,251, 
169,4 

25350 DATA 133,252,169,52, 

133,254 
25356 DATA 169,0,133,253, 

160,0 

25362 DATA 177,253,145,251, 
32,80 

25368 DATA 81,230,251,208,2 
,230 

25374 DATA 252,230,253,208, 
2,230 

25380 DATA 254,165,251,201, 

232,208 
25386 DATA 231,165,252,201, 

7,208 
25392 DATA 225,96 

Ya puedes ensamblar y guardar este 
programa, pero no lo llames, porque 
desde él se produce una llamada a una 
subrutina que veremos más adelante y 
si no encuentra dicha subrutina en me- 
moria, se interrumpirá. 

PINTANDO CON LOS NUMEROS 

Las primeras cuatro instrucciones 
establecen el puntero de pantalla y las 
cuatro siguientes definen otro puntero 
de página cero para los datos. 

A continuación se pone a cero el 
desplazamiento de Y, ya que vas a in- 
crementar la página cero. El byte al 
que señala el puntero de datos es car- 
gado en el acumulador y almacenado 




I 



V 



en la posición de pantalla señalada. Se 
llama entonces a la rutina que hay en 
$5150. Más adelante nos ocuparemos 
de ella que es la que define los colores. 
Las seis instrucciones siguientes in- 
crementan los punteros. Las instruc- 
ciones BNE de esta parte de la rutina 
comprueban si el byte bajo del pun- 
tero ha llegado al final de la página y 
fuerzan el salto subsiguiente a INC T 
que incrementa el byte alto, en caso 
de que no se haya llegado al final de 
página. Las seis instrucciones que fi- 
guran a continuación comprueban si 
se ha llegado o no al final de la pan- 
talla, saliendo de la pantalla en el caso 
de que así sea. La instrucción RTS 
quedará borrada cuando se añada el 
resto del programa. 



PONIENDOLE COLOR 

Con la siguiente rutina se introdu- 



cen los colores: 




5150 


A0 00 


LDY #$00 


5152 


Bl FB 


LDA ($FB),Y 


5154 


8D 84 03 


STA $0384 


5157 


A5 FC 


LDA $FC 


5159 


18 


CLC 


515A 


69 D4 


ADC #$D4 


515C 


85 FC 


STA $FC 


515E 


AD 84 03 


LDA $0384 


5161 


C9 1C 


CMP #$1C 


5163 


F0 1C 


BEQ $5181 


5165 


C9 ID 


CMP #$1D 


5167 


F0 18 


BEQ $5181 


5169 


C9 3F 


CMP #$3F 


516B 


F0 19 


BEQ $5186 


516D 


C9 1E 


CMP #$1E 


516F 


F0 15 


BEQ $5186 


5171 


C9 1F 


CMP #$1F 


5173 


F0 11 


BEQ $5186 


5175 


A9 02 


LDA #$02 


5177 


91 FB 


STA ($FB),Y 


5179 


A5 FC 


LDA $FC 


517B 


38 


SEC 


517C 


E9 D4 


SBC #$D4 


517E 


85 FC 


STA $FC 


5180 


60 


RTS 




INPUT 



5181 A9 05 
5183 4C 77 51 
5185 A9 01 
5188 4C 77 51 



LDA #$05 
JMP $5177 
LDA #$01 
JMP $5177 



El cargador BASIC será: 
10 S = 

20 FOR AD = 20816 TO 20874 
30 READBY: POKEAD, BY:S = S + B 
Y 

40 NEXT 

50 IFS<>7678 THEN 
PRINTERROR EN LOS 
DATOS": END 
20816 DATA 160,0,177,251, 

141,132 
20822 DATA 3,165,252,24,105 
,212 

20828 DATA 133,252,173,132, 
3,201 

20834 DATA 28,240,28,201,29 
,240 

20840 DATA 24,201,63,240,25 
,201 

20846 DATA 30,240,21,201,31 
,240 

20852 DATA 17,169,2,145,251 
,165 

20858 DATA 252,56,233,212, 

133,252 
20864 DATA 96,169,5,76,119, 

81 

20870 DATA 169,1,76,119,81 

La subrutina empieza cargando el 
mismo byte de datos que figuraba en 
el programa principal y almacenán- 
dolo en la dirección $0384. Se trata de 
un almacenamiento temporal, ya que 
en este momento hace falta utilizar el 
acumulador para otras cosas. 

Las cuatro instrucciones siguientes 
suman el valor $D4 al byte alto del 
puntero de pantalla contenido en $FC. 
Esto desplaza el puntero desde su po- 
sición en la pantalla gráfica — que em- 
pieza en $04(M) — a su correspondiente 
posición en la pantalla de color, que 
empieza en SD800. 

Seguidamente los datos se cargan de 
nuevo desde $0384 al acumulador. Se 
realiza entonces una comprobación de 
los diferentes códigos de control de los 



datos. Dependiendo del código de 
control que se encuentre, el procesa- 
dor salta a la instrucción que hay en 
$5181 o $5186. 

La instrucción que hay en $5181 es 
LDA #$05 que carga el acumulador 
con una tinta de color verde. Por el 
contrario la instrucción LDA #$01, 
que figura en $5186, asigna para la 
tinta el color blanco. Así es como se 
obtienen el color verde de la hierba y 
el blanco del propio acantilado. Los 
dos tonos de la hierba y el acantilado 
se obtienen con ayuda de los caracte- 
res gráficos que mezclan el color de la 
tinta con el del papel. 

Si no se extrae ningún carácter de 
control, el acumulador se carga con el 
color rojo. De esta forma, todo lo que 
hay en la pantalla que no es ni verde 
ni blanco, se colorea en rojo. 

Naturalmente esto no significa que 
el cielo sea rojo. Lo que es rojo es el 
color de la tinta, por lo que sólo apa- 
rece cuando se escriben datos en la 
pantalla. En consecuencia, el número 
de vidas, la altura y la puntuación se 
presentan en color rojo, pero el cielo 
aparece en el color del papel, que es 
el gris. Por desgracia estaba bastante 
nublado el día que Willie decidió irse 
de merienda campestre, al menos en 
la versión Commodore, 

Cuando el carácter se imprime en 
blanco o en verde, el procesador salta 
a la instrucción que hay en $5177, que 
es la que establece el color rojo para 
el resto de los datos. Así se almacena 
en el lugar adecuado el color elegido 
en la pantalla de color. 

Las cuatro instrucciones siguientes 
restan el valor $D4 del byte alto del 
puntero de $FC\ a fin de desplazarlo 
desde la pantalla de color a la pantalla 
de gráficos. Cuando con la instrucción 
RTS se retorna a la rutina principal, 
puede entonces extraerse el siguiente 
carácter gráfico y presentarse en la 
pantalla. 

Una vez formada la primera panta- 
lla, las siguientes son simplemente 
modificaciones de la misma. En el se- 
gundo nivel, Willie tiene que enfren- 
tarse con las grietas. Para crearlas, 
basta con escribir por encima de ía 
pendiente que figuraba en la primera 
pantalla, utilizando el color de fondo 





í 



y con la forma que quieras darle a la 
oquedad que vas a crear. A continua- 
ción se añaden las serpientes escri- 
biendo con el color de fondo. Poste- 
riormente añadiremos la rutina que 
hace que se mueva la serpiente. 

La siguiente rutina determina qué 
sprites aparecen en cada nivel e inicia- 
liza la posición de comienzo del hom- 
bre y el canto rodado. También se 
ocupa del mar. 



6000 4C 59 60 
6003 AD 00 C0 
6006 C9 01 
6008 D0 06 
600A A9 47 
600C 8D 15 D0 
600F 60 
6010 C9 02 



JMP $6059 
LDA $C000 
CMP #$01 
BNE $6010 
LDA #$47 
STA $D015 
RTS 

CMP #$02 



42 INPUT 




Código Máquina 





6012 


D0 18 


BNE $602C 


j : 14 


A9 7D 


LDA #$7D 


1016 


8D 15 D0 


STA $D015 


6019 


A2 03 


LDX #$03 


50 1 B 


A0 00 


LDY #$00 


idiD 


A9 0F 


LDA #$0F 


601F 


99 2A D0 


STA $D02A,Y 


6022 


A9 EC 


LDA #$EC 


¡024 


99 FB 07 


STA $07FB,Y 


6027 


C8 


ÍNY 


6028 


CA 


DEX 


5029 


D0 F2 


BNE $601D 


602 B 


60 


RTS 


602C 


C9 03 


CMP #$03 


: :2E 


D0 08 


BNE $6038 


6030 


A9 7F 


LDA #$7F 


¡032 


8D 15 D0 


STA $D015 


6035 


4C 19 60 


JMP $6019 


6038 


C9 04 


CMP #$04 



603A 

603C 

603 E 

6041 

6043 

6045 

6047 

604A 

604C 

604F 

6050 

6051 

6053 

6054 

6056 

6059 

605B 

605E 

6060 

6063 

6066 

6069 

606C 

606E 

6071 

6073 

6076 

6078 

607B 

607D 

6080 

6082 

6085 

6087 

608A 

608C 

608F 

6092 

6095 



D0 18 
A9 7D 
8D 15 D0 
A2 03 
A0 00 
A9 05 
99 2A D0 
A9 EA 
99 FB 07 
C8 
CA 

D0 F2 

60 

A9 7F 
4C 3E 60 
A9 07 
8D 0E C0 
A9 E8 
8D 0D C0 
AD 02 C0 
8D 02 C0 
8D 0C C0 
A9 02 
8D 12 C0 
A9 21 
8D 11 C0 
A9 12 
8D 00 D0 
A9 Al 
8D 01 D0 
A9 42 
8D 10 D0 
A9 4A 
8D 0D D0 
A9 40 
8D 0C D0 
AD 1E D0 
AD 1F D0 
4C 03 60 



BNE $6054 
LDA #$7D 
STA $D015 
LDX #$03 
LDY #$00 
LDA #$05 
STA $D02A,Y 
LDA #$EA 
STA $07FB,Y 
INY 
DEX 

BNE $6045 
RTS 

LDA #$7F 
JMP $603E 
LDA #$07 
STA $C00E 
LDA #$E8 
STA $C00D 
LDA $C002 
STA $C002 
STA $C00C 
LDA #$02 
STA $C012 
LDA #$21 
STA $C011 
LDA #$12 
STA $D000 
LDA #$A1 
STA $D001 
LDA #$42 
STA $D010 
LDA #$4A 
STA $D00D 
LDA #$40 
STA $D00C 
LDA $D01E 
LDA $D01F 
JMP $6003 



Su consiguiente cargador en BASIC 
es: 

10 S = 

20 FOR AD = 24576 TO 
24727 

30 READBY:POKEAD,BY:S = S + B 
Y 

40 NEXT 

50 IFS<>18505 THEN 
PRINT"ERROR EN LOS 



DAT0S":END 
24576 DATA 76,89,96,173,0, 
192 

24582 DATA 201,1,208,6,169, 
71 

24588 DATA 141,21,208,96, 
201,2 

24594 DATA 208,24,169,125, 
141,21 

24600 DATA 208,162,3,160,0, 
169 

24606 DATA 15,153,42,208, 

169,236 
24612 DATA 153,251,7,200, 

202,208 
24618 DATA 242,96,201,3,3, 

208,0 

24624 DATA 169,127,141,21, 
208,76 

24630 DATA 25,96,201,4,208, 
24 

24636 DATA 169,125,141,21, 

208,162 
24642 DATA 3,160,0,169,5, 

153 

24648 DATA 42,208,169,234, 

153,251 
24654 DATA 7,200,202,208, 

242,96 

24660 DATA 169,127,76,62,96 
,169 

24666 DATA 7,141,14,192,169 
,232 

24672 DATA 141,13,192,173,2 
,192 

24678 DATA 141,2,192,141,12 
,192 

24684 DATA 169,2,141,18,192 
,169 

24690 DATA 33,141,17,192, 
169,18 

24696 DATA 141,0,208,169, 

161,141 
24702 DATA 1,208,169,66,141, 

16 

24708 DATA 208,169,74,141, 
13,208 

24714 DATA 169,64,141,12, 

208,173 
24720 DATA 30,208,173,31, 

208,76 
24726 DATA 3,96 



INPUT 43 



DANDO SALTOS 

Esta rutina empieza con un salto a 
una etiqueta situada hacia la mitad de 
la propia rutina. Y el procesador sólo 
regresa al principio una ve/ que se ha 
completado la segunda mitad. Aun- 
que ésta no es la manera más ade- 
cuada de escribir programas, se trata 
de un método útil para pasar de un 
segmento de programa a otro sin ne- 
cesidad de tener que volver a escribir 
lodo el código fuente. 



LOS SPRITES 

En el curso de la escritura del juego 
se construye una tabla de variables. 
Dicha tabla comienza en 49152 y se 
utiliza para almacenamiento temporal 
de los parámetros que cambian du- 
rante el juego. La variable almace- 
nada en la dirección 49152 especifica 
la altura alcanzada por el jugador y en 
consecuencia determina qué pantalla y 
qué sprites se requieren. 

Los contenidos de la dirección 
49152 se cargan en el acumulador y se 
comparan con 1 . Si el juego no está en 
el nivel 1, la instrucción BNE fuerza 
un salto a la siguiente subrutina. Si se 
encuentra en el nivel L el registro A 
se carga con el número 71 que después 
se almacena en la dirección 53269. 
Esta es la dirección que habilita la pre- 
sentación de los sprites. Los sprites se 
activan poniendo un 1 en el conjunto 
de bits. Según esto, se activan los spri- 
tes D, L, 2 y 6. 

A continuación se produce el re- 
torno del procesador. 



EN EL NIVEL DOS 

La siguiente subrutina empieza de 
ía misma manera, excepto que esta 
vez la comprobación se hace para ver 
si se encuentra en el nivel dos. Si así 
ocurre, se activan además los sprites 3, 
4 y 5, mientras que el sprite 2 (que co- 
rresponde al canto rodado) queda de- 
sactivado. 

A continuación se carga el registro 
X con el valor 3 como contador de bu- 
cle, mientras que Y se carga con 
como valor de desplazamiento que 
será incrementado cada vez que el 



procesador recorra el bucle. De esta 
forma se carga el valor 15, que es el 
color de fondo, en las direcciones de 
color de los sprites 3, 4 y 5. Después 
se activan los correspondientes pun- 
teros de sprite. La subrutina realiza 
los agujeros. 

La siguiente subrutina comprueba sí 
el jugador se encuentra en el nivel 
tres. De ser así, se activa de nuevo el 
sprite del guijarro, para lo cual se 
suma un dos adicional y se almacena 
en la dirección que habilita los sprites. 
Pero todavía hay que perforar los agu- 
jeros por lo que el procesador regresa 
a la rutina RET anterior. 

En el nivel cuatro, el sprite del 
canto rodado se desactiva de nuevo y 
se ejecuta el nuevo bucle que empieza 
en la dirección $6045 (24645). Se trata 
de la misma rutina anterior de perfo- 
ración de agujeros, con la salvedad de 
que el color se ha puesto a 5. que es 
el color de la serpiente y de que el 
puntero de sprites está apuntando a 
los datos de la serpiente. 

Finalmente en el nivel cinco, el 
sprite del canto rodado vuelve a acti- 
varse otra vez y se llama a la rutina de 
presentación de serpientes. 



EL MAR 

Las variables contenidas en las di- 
recciones 49165 ($COOD) y 49166 
(SCO DE) determinan el estado de la 
mar. El retardo que determina cuán 
rápidamente sube la agua está conte- 
nido en fa dirección 49154 ($C002) y 
puede cambiarse durante el juego 
para hacer más desesperada la esca- 
lada de Willie y poner el juego más di- 
fícil. 

Se definen entonces las coordena- 
das X e Y de los sprites que confor- 
man el mar y se desactivan los indi- 
cadores de colisión de sprites. 



SERPIENTES Y CONTADORES 

La siguiente rutina configura las ser- 
pientes: 

6100 A9 74 LDA #$74 
6102 8D 06 D0 STA $D006 
6105 A9 92 LDA #$92 
6107 8D 07 D0 STA $D007 



610A 


A9 


7A 




LDA 


#$7A 


610C 


8D 


08 


D0 


STA 


$D008 


610F 


A9 


A0 




LDA 


#$A0 


6111 


8D 


09 

r 


D0 


STA 


$D009 


6114 


A9 


82 




LDA 


#$82 


6116 


8D 


0A 


D0 


STA 


$D00A 


6119 


A2 


03 




LDX 


#$03 


611B 


A0 


00 




LDY 


#$00 


611D 


A9 


14 




LDA 


#$14 


61 1F 


99 


64 


C3 


STA 


$C364,Y 


6122 


E9 


05 




SBC 


#$05 


6124 


C8 






INY 




6125 


CA 






DEX 




6126 


D0 


F7 




BNE 


$611F 


6128 


60 






RTS 





A continuación os proporcionamos 
su cargador en BASIC: 



10 S = 

20 FOR AD = 24832 TO 
24872 

30 READBY:POKEAD,BY:S = S + 

BY 
40 NEXT 

50 IFS<>5457 THEN 
PRI NT"ERR0R EN LOS 



DATOS": EN D 


24832 


DATA 169,116,141,6, 




208,169 


24838 


DATA 146,141,7,208, 




169,122 


24844 


DATA 141,8,208,169, 




160,141 


24850 


DATA 9,208,169,130, 




141,10 


24856 


DATA 208,162,3,160,0, 




169 


24862 


DATA 20,153,100,195, 




233,5 


24868 


DATA 200,202,208,247, 



96 



Las coordenadas X e Y de los tres 
agujeros y serpientes se cargan en el 
acumulador y se almacenan en las di- 
recciones de memoria 53254 ($DOOó) 
a 53258 ($DOOA). Estas son las di- 
recciones que se encargan de controlar 
las posiciones X c Y de los sprites 3, 
4 y 5. 

El bucle escalona los movimientos 
de las lenguas, de forma que no se dis- 
paren todas ai mismo tiempo. 



44 INPUT 



¡NO TE PIERDAS NI UN SOLO EJEMPLAR! 



INPUT COMMODORE quiere 
proporcionar a sus lectores este nuevo 
servicio de ejemplares atrasados para que 
no pierdan la oportunidad de tener en sus 
hogares todos los ejemplares de esta revista, 
líder en el mercado español 

Podréis solicitar cualquier número de 



INPUT COMMODORE que queráis, siempre 
al precio de cubierta (sin más gastos). 

Utiliza el cupón adjunto, enviándolo a 
EDISA (Dpto. de Suscripciones), López de 
Hoyos, 141 - 28002 Madrid. 




9 




CUPON DE PEDIDO 

SI, envíenme contrarreembolso ejemplares de INPUT 

COMMODORE de los números: 

□□□□□□□□□□□□a 

NOMBRE U_J^L1 I i I I i i f I — L_ ! l l . LJ_L_I__J— J_ L í I I I _LJ-J 

APELLIDOS i i ' ! i ' i i 1 ' 1 i 1 I 1 - ' 1 1 I — L U-L-U-LU - LJ i 1 ' 
DOMICILIO ■ I ' I I 1 1 1 1 1 1 [ 1 1 1 1 1 ' ¡ 1 1 1 1 ' I 1 1 1 1 1 1 

NUM. i i i i PISO i 1 i ESCALERA COD. POSTAL 1 I i i i 

POBLACION lili i i i l i i i i i PROV L i l l J — I J 1 i III 

TELEFONO FIRMA 




ANIMACION MEDIANTE 
GRAFICOS PAGINADOS 



La utilización de técnicas simples de 
gráficos paginados ofrece una real com- 
prensión del mundo de la animación por 
ordenador y obtiene unos resultados in- 
teresantes en tu micro. 

Todos los tipos de animación se ba- 
san en un fenómeno de percepción co- 
nocido como persistencia de la visión. 
En efecto, esto significa que una ima- 
gen que vemos se «conserva» en la 
memoria durante un instante aprecia- 
ble, incluso aunque la visión se mueva 
hacia cualquier otro punto. Sí se 
muestra rápidamente una secuencia 
de imágenes estáticas, el cerebro no 
puede retener los cambios de imagen 
que ocurren a una frecuencia superior 
a doce veces por segundo, aproxima- 
damente. Como resultado, deja de se- 
parar las imágenes y, confundido, cree 
ver movimiento. 

El proceso se demuestra con mucha 
sencillez con el «cambio de página», 
en el cual los dibujos de cada una de 
las páginas de un libro pueden ponerse 
en movimiento a medida que se pasan 
las páginas a una cierta velocidad. 
Una demostración más sofisticada de 
lo mismo se encuentra en el proceso 
de animación por cuadros, que data de 
los primeros años de este siglo. 

Este tipo de animación consiste en 
dibujar una figura sobre una pieza de 
plástico, denominada celda, fotogra- 
fiando a continuación un par de cua- 
dros de película utilizando una cámara 
de cine convencional montada sobre 
una montura situada sobre dicha pe- 
lícula. La celda se sustituye a conti- 
nuación por otra que muestra una ver- 
sión ligeramente alterada de la misma 
figura y se repite todo el proceso an- 
terior. Como puedes imaginar, este 
tipo de animación requiere un increí- 
ble número de imágenes que deben di- 
bujarse concienzudamente a mano, ya 
que se necesitan alrededor de unos 
veinticinco cuadros por cada segundo 



de película cinematográfica acabada. 

GRAFICOS POR ORDENADOR 

Por tanto, ¿por qué no utilizar los 
ordenadores para acelerar el proceso? 
Incluso el relativamente humilde mi- 
cro doméstico puede generar buenas 
imágenes, mientras que los ordena- 
dores especiales son capaces de obte- 
ner imágenes asombrosamente elabo- 
radas. 

El problema reside en que obtener 
una visualización de la calidad que da 
por supuesta hoy en día el público ci- 
nematográfico requiere una variedad 
fantásticamente extensa de hardware. 
Una película de ciencia ficción, El 
guerrero del espacio (Starfighter) , con- 
fió en un equipo informático para con- 
seguir 27 minutos de sorprendentes 
imágenes. Pero para ello se necesitó 
un Cray X-MP de 12 millones de dó- 
lares conectado a dos ordenadores de 
un millón de dólares. Este enorme 
gasto se consideró que valía la pena, 
ya que permitió crear imágenes que 
habrían sido difíciles de conseguir en 
el mundo real. 

Toda esta tecnología está muy bien 
para la gente que tiene acceso al 
equipo de grabación cinematográfico 
o de vídeo, a potentes ordenadores y 
que disponen de tiempo de sobra. 
Pero la mayor parte de gente que no 
dispone de ninguna de estas cosas 
también puede encontrar de gran uti- 
lidad los gráficos generados por or- 
denador. Por ejemplo, las imágenes 
animadas son una parte importante de 
toda clase de paquetes de Diseño 
Asistido por Ordenador (CAD: Com- 
puter- A ided-Design ) , y todos los bue- 
nos juegos de acción dependen en 
gran medida de representaciones de 
pantalla atractivas y con una anima- 
ción bien hecha. 

La sofisticación que puede conse- 
guirse en estas imágenes está limitada 



por la capacidad del ordenador que 
utilices. El Cray opera a 100 mega- 
flops (100 millones de operaciones de 
coma flotante por segundo). Pero 
como las imágenes deben intercam- 
biarse varias veces por segundo para 
obtener una animación realista, in- 
cluso el Cray no puede generar imá- 
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■ 


ANIMACION POR CUADROS 


■ 


CREACION DE GRAFICOS 


■ 


GRAFICOS POR ORDENADOR 


■ 


ANIMACION EN TIEMPO REAL 


■ 


EXPLICACION DE LOS GRAFICOS 


■ 


PERSISTENCIA DE LA VISION 




PAGINADOS 


■ 


ANIMACION DE PELICULAS 


■ 


UN CUBO MOVIL 




COMERCIALES 



. . ts de calidad lo bastante rápida- 
lente como para conseguir una ani- 
mación en tiempo real. En vez de ello, 
ías imágenes generadas se filman por 
separado según un proceso de cuadros 
convencional. 
Los niveles de detalle inferiores de 
imágenes permiten que los cuadros 



se generen más rápidamente, Real- 
mente, existe un simulador de vuelo 
en el cual las representaciones razo- 
nablemente exactas de un avión en 
vuelo son generadas a razón de 50 ve- 
ces por segundo, obteniendo efectos 
animados de gran realismo. 

La razón de la dificultad de la ani- 




mación por ordenador a gran veloci- 
dad reside en la cantidad de informa- 
ción necesaria para cada imagen. 
Cuanto más detallada sea esta, más 
memoria se necesita para almace- 
narla. Incrementa el número de colo- 
res disponibles, y la cantidad de RAM 
requerida para almacenar la informa- 
ción relativa al color crecerá también. 

Cuanta más memoria se utilice para 
almacenar la imagen, más trabajo ten- 
drá que llevar a cargo la CPU para ac- 
tualizarla. La razón por la cual la ma- 
yor parte de películas comerciales ge- 
neradas por ordenador emplean la 
animación por cuadros es simple- 
Fmente que el procesador no es lo bas- 
tante potente como para actualizar 
grandes áreas de memoria rápida- 
mente. Si la actualización de los grá- 
ficos es un proceso lento, incluso para 
quienes utilizan ordenadores poten- 
tes, ¿cómo puede un programador ca- 
sero obtener animación utilizando un 
micro? Una solución consiste en em- 
plear gráficos paginados, 

¿QUE SON LOS GRAFICOS 
PAGINADOS? 

Todos los ordenadores domésticos 
disponen de un área de memoria aso- 
ciada a la pantalla. Puede tratarse de 
memoria mapeada, lo que significa 
que a cada posición de pantalla le co- 
rresponde una posición de memoria, o 
puede estar organizada utilizando un 
fichero de visualización. 

Con los gráficos paginados, en vez 
de construir la siguiente imagen direc- 
tamente en la memoria de pantalla, se 
reserva un área en alguna otra parte 
para dicho propósito. Una vez com- 
pleta la nueva imagen, se copia a la 
RAM normalmente asociada a la pan- 
talla. Estas áreas de pantalla adicio- 
nales se denominan páginas, por lo 
cual se conoce a esta técnica como grá- 
ficos paginados. 
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Obviamente, si sólo deseas dibujar 
una imagen, los gráficos paginados 
pueden parecer de poca utilidad. Sin 
embargo, si deseas escribir un pro- 
grama en el cual una página de texto 
vaya seguida de una imagen, piensa 
cuan conveniente sería que fueras ca- 
paz de empezar creando la primera vi- 
sualización gráfica en algún otro lugar 
de la memoria mientras el usuario está 
ocupado leyendo toda la página de 
instrucciones. Cuando sea necesario el 
gráfico, se ahorra tiempo, ya que éste 
se encuentra presente en otra área de 
la RAM. Si es conveniente, puedes 
emplear todo el tiempo en hacer cál- 
culos por ti mismo y emplear el or- 
denador para visualizar las imágenes 
tan rápidamente como sea necesario. 

Pero la ventaja real de los gráficos 
paginados se consigue cuando deseas 
visualizar más de una imagen en rá- 
pida sucesión. Los comandos gráficos 
del BASIC habitualmente escriben so- 
lamente en la memoria de pantalla. 
Esto significa que las imágenes se 
construyen en la pantalla y a conti- 
nuación se salvan. Mientras que la uti- 
lización de gráficos paginados no 
aporta ninguna rapidez a la construc- 
ción física de una imagen en la pan- 
talla, una vez efectuados los cálculos, 
dichas imágenes pueden transportarse 
de la memoria a la pantalla muy rá- 
pidamente. Así, los gráficos paginados 
conservan la simplicidad del BASIC, 
combinada con una velocidad de re- 
presentación mucho mayor. Y si dis- 
pones varias imágenes en distintas 
áreas de memoria, puedes llamarlas 
en una secuencia rápida para permitir 
representaciones bastante complejas. 

Supongamos que deseas construir 
una secuencia animada simple que 
muestre la rotación de un cubo. Has 
decidido que cuatro imágenes serán 
suficientes para representar una rota- 
ción del cubo y deseas que éste gire 
cinco veces. La estructura de un pro- 
grama típico podría parecerse a esto: 

for contador = 1 to 5 do 

begin 

limpiar la pantalla 
presentar imagen número 1 
limpiar la pantalla 
presentar imagen número 2 
limpiar la pantalla 



presentar imagen número 3 
limpiar la pantalla 
presentar imagen numero 4 
end 

La idea es bastante simple. Se lim- 
pia la pantalla, cada una de las cuatro 
imágenes se dibuja por turno y se re- 
pite el proceso hasta que el cubo haya 
girado cinco veces. La desventaja de 
este método es que dibujará cada ima- 
gen cinco veces. Los cálculos durarán 
un cierto tiempo cada vez, por lo que 
la animación resultante será pobre, 
con un «salto» apreciable entre cada 
imagen. 

Veamos ahora un algoritmo alter- 
nativo, que muestra el procedimiento 
general de un programa estructurado 
en torno a las técnicas de gráficos pa- 
ginados: 

limpiar pantalla 
formar imagen número 1 
almacenar datos de pantalla en pá- 
gina de memoria 1 
limpiar la pantalla 
formar imagen número 2 
almacenar datos de pantalla en pá- 
gina de memoria 2 
limpiar la pantalla 
formar imagen número 3 
almacenar datos de pantalla en pá- 
gina de memoria 3 
limpiar la pantalla 
formar imagen número 4 
almacenar datos de pantalla en pá- 
gina de memoria 4 
for contador = 1 to 5 do 
presentar memoria de página 1 a 
pantalla 

presentar memoria de página 2 a 
pantalla 

presentar memoria de página 3 a 
pantalla 

presentar memoria de página 4 a 

pantalla 

end 

El programa es más largo y todavía 
tienes que pasar por el lento proceso 
de calcular y dibujar las cuatro imá- 
genes, pero la animación no empieza 
hasta que se ha realizado dicho pro- 
ceso. Una vez almacenadas en me- 
moria, las imágenes pueden volver a 
llamarse con extraordinaria rapidez. 

Aunque el dibujo se efectúa todavía 



en BASIC, el trozo de programa real 
que mueve una imagen determinada 
en memoria será una corta rutina en 
código máquina. Esta transfiere una 
pantalla entera de información más 
deprisa de lo que el ojo puede ver, la 
esencia de la animación. 



DEMOSTRACION DE GRAFICOS 

El siguiente programa demuestra 
una aplicación simple de los gráficos 
paginados. Como el programa con- 
tiene código máquina para obtener la 
necesaria velocidad en el intercambio 
de las imágenes, sálvalo antes de eje- 
cutarlo para evitar percances. 

Se te pide que pulses una tecla des- 
pués de haberse dibujado la imagen y 
debes pulsar otra tecla más para em- 
pezar la alternancia de las imágenes. 

Puedes utilizar este programa como 
base para tus propios experimentos, 
cambiando las imágenes dibujadas. 
Un próximo artículo explicará con 
más detalle las técnicas utilizadas, así 
como el modo de llevar la sofisticación 
hasta los límites de tu ordenador. 

La utilización de los gráficos de ex- 
celente resolución del Commodore, 
accesibles utilizando el cartucho Si- 
mons n BASIC o la facilidad de gráficos 
en alta resolución que INPUT te ex- 
plicó en otros números, ofrece un inu- 
sual e interesante par de imágenes al- 
ternativas. 

Las dos imágenes son similares y 
por ello no se dibujan individual- 
mente. En vez de ello, se construyen 
utilizando un bucle FOR...NEXT que 
envía al programa dos veces a la rutina 
de dibujo, efectuando la segunda vez 
pequeños cambios de ¡as instruccio- 
nes. 

Si se utiliza el cartucho Simons* BA- 
SIC, el programa es correcto. Si se uti- 
liza la facilidad de gráficos en alia re- 
solución de INPUT tal como se pu- 
blicó en INPUT anteriores, borra la lí- 
nea 65, modifica el 224 en negrita de 
la línea 240 a 32 y el 255 en negrita de 
la línea 250 a 63. Cuando se publique 
el resto de la facilidad de alta resolu- 
ción de INPUT. la línea 65 podrá de- 
jarse en su sitio, pero los cambios 
efectuados en las líneas 240 y 250 de- 
berán dejarse como permanentes. 
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Además, debes preceder todos los co- 
üandos gráficos con una @. 

: : POKE 51,255:P0KE 52, 

29:P0KE 55,255:POKE 56, 

29:CLR 
M GOSUB 220 
-! D = 64 
T : FOR N = TO 1 
1 HIRES 0,1:MULTI 2,4, 

5:C0L0UR 6,6 
55 CIRCLE 80,100,30+10*N, 

30+10*N,l:PAINT 80,100,2 
1% FOR X=0 TO 159:PL0T 

RND(1)*160,RND(1)*200, 

RND{1)*4 
:". PLOT X,100+30*SIN((N 

+X/50)*EXEC /4),3 
55 LINE X,50+N*50,0,100- 

N*50,RND(1)*4+1 
rC NEXTX 

- : : GOSUB 430:IF N = 

THEND-96 
. I ; TEXT 30,1, "PRESS ANY KEY", 



3,1,8:POKE198,0:WAIT198,1 

120 NEXT N 
150 D=64:F0R N = TO 1 
170 GOSUB 440:IF N=0 

THEND=96 
190 NEXT N 
200 GOTO 150 

220 FOR Z=7680 TO 7738:READ 

X:POKE Z,X:NEXT ZiRETURN 
230 DATA 169,0,141,14,220, 

169,53,133,1 
240 DATA 169,0,133,251,133, 

253,169,224,133,252,169, 

64,133,254,160,0 
250 DATA 177,251,145,253, 

192,63,208,16,165,252, 

201,255,208,10 
260 DATA 162,1,142,14,220, 

162,55,134,1,96,200 
270 DATA 208,229,230,252, 

230,254,76,25,30 
430 POKE 7700,D:POKE 7706, 

251:P0KE 7708,253:SYS 

7680:RETURN 



440 7700,D:POKE 7706, 

253:POKE 7708,251:SYS 
7680:RETURN 

La línea 20 del programa limpia un 
espacio de memoria para el código 
máquina y la pantalla que necesitamos 
almacenar. La línea 30 envía a conti- 
nuación el programa a la subrutina de 
las líneas 220 a 270, en las que los da- 
tos se colocan en memoria. La línea 40 
determina la posición de memoria en 
donde se va a almacenar la primera de 
las dos pantallas y la 50 en un bucle 
FOR... NEXT para las distintas pan- 
tallas. El modo gráfico y el color de la 
pantalla (azul) se determinan en la lí- 
nea 60. 

Los dibujos primero y segundo se 
dibujan en las líneas 65 a 85. En la lí- 
nea 100, el programa se envía prime- 
ramente a la línea 430, que salva la 
pantalla antes de cambiarla de posi- 
ción. Se intercambian las dos pantallas 
por medio de una rutina contenida en 
las líneas 150 y 200. 
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HISTOGRAMAS Y 
TARTAS ESTADISTICAS 



Sea cual sea la procedencia de tus da- 
tos (un presupuesto familiar, un pe- 
queño negocio, una afición o los mismos 
indicadores de tu salud), notarás la di- 
ferencia si los representas mediante un 
diagrama de barras o una tarta re- 
donda. 

Ya has podido ver en nuestra revista 
cómo se escribe un programa que vi- 
sualiza tus datos en forma gráfica. 
Otra manera de representar la infor- 
mación numérica sería el diagrama no 
lineal. Las barras (histogramas) y las 
«tartas» están entre las representacio- 
nes más ampliamente utilizadas de la 
información comercial y estadística, Y 
es que ofrecen una ventaja adicional: 
pueden colorearse y adquirir formas 
deslumbrantes. 

Aparte de esto, cada diagrama se 
adapta particularmente mejor a un 
tipo de datos que a otro. Las barras se 
prestan a ser utilizadas para datos que 
fluctúan a lo largo de un amplio aba- 
nico de valores. El diagrama en forma 
de tarta está indicado en aquellas oca- 
siones en que te interese mostrar los 
distintos valores en proporción a la to- 
talidad: por ejemplo, si tienes que 
comparar porcentajes. 

Los programas que siguen ilustran 
la manera de instruir a tu ordenador 
para que te haga ambos tipos de dia- 
gramas. 

Ya sabes que tu Commodore fun- 
cionará mejor (dado que sus funciones 
de gráficos son poco accesibles en el 
BASIC normal) con el cartucho BA- 
SIC de Simón. 



LA RUTINA DE LAS BARRAS 

Esta rutina es en esencia la misma 
que la de cualquier gráfico. Una vez 
reunidos los datos, hay que entrarlos 
en la memoria, determinar las coor- 
denadas, trazar las barras y añadir los 
textos. Una de dos: o introduces (IN- 



PUT) cada uno de los datos y vas tra- 
zando cada barra sobre la marcha, o 
esperas a tener introducidos todos los 
datos para empezar la tarea del tra- 
zado de barras. Existe una tercera po- 
sibilidad: leer (READ) los datos y tra- 
zar las barras/ cambiándolos siempre 
que desees dibujar un diagrama dife- 
rente. Lo que sí te aconsejamos es 
que, sea el que sea el método a seguir, 
almacenes los datos en una tabla de 
variables, porque así la máquina iden- 
tificará fácilmente las coordenadas de 
cada barra. 



bando el programa, de este modo pue- 
des aumentar o disminuir el número 
de barras a trazar en la línea 10, sin 
que sea necesario alterar los datos 
cada vez. 



LEER LOS DATOS 



Entra estas líneas que leen (READ) 
los datos, y ejecútalas (RUN). Toda- 
vía no verás nada en pantalla, pero ha- 
rás bien en ejecutar cada parte del 
programa, para comprobar y depurar 
errores. 

5 H1RES 0,:MULTI 2,4,6 

10 N = 12 

20 DIM A(N) 

70 FOR T=l TO N 

80 READ A(T) 

90 NEXTT 

3010 DATA 2,4,7,4,6,3,8,0,5, 
6,9,4 



Esta sección del programa selec- 
ciona un modo que sirva para gráficos 
en aquellas máquinas que lo requie- 
ren, Establece el 12 como número de 
barras que se trazarán (línea 10) y di- 
mensiona la tabla con este mismo nú- 
mero (línea 20). Escoge, si quieres, 
otro número, pero si es uno mayor, no 
olvides que has de tener un número 
equivalente de entradas en la senten- 
cia DATA de la línea 3010, porque de 
lo contrario te encontrarás con el error 
out of data. Con frecuencia es mejor 
disponer de más entradas en la línea 
de DATA cuando se está compro- 



LAS ESCALAS 



Ya tiene el ordenador en su poder 
los valores absolutos de cada coorde- 
nada de barras, pero habrás de decirle 
a qué escala los quieres representados. 
Si no se lo dices, puede que alguno de 
los datos te rebase la pantalla, mien- 
tras que los datos más pequeños apa- 
rezcan en ella como motitas práctica- 
mente invisibles. Para trazar los ejes a 
escala, escribe y ejecuta (RUN) las si- 
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^^rogramaciá^ 



COMO SE DIBUJAN LAS BARRAS 



TOMA DE DATOS 



LA ESCALA DE LAS COORDENADAS 



ESTADISTICA EN 3-D 



EL DIAGRAMA DE TARTA 



guientes líneas (de nuevo, hazlo como 
prueba, aunque nada veas todavía en 
la pantalla). 

30 DX=150/N 
40 READ DY 
3000 DATA 18 



Esta parte del programa produce 
una escala para el eje X dividiendo el 
área disponible de la pantalla (descon- 
tados los márgenes) por el número de 
barras que se van a trazar (línea 30). 
El número máximo de barras posible 
depende de cada ordenador, pero 
puedes deducir el valor que mejor grá- 
fico te ofrece si conoces la extensión 
de la pantalla de gráficos de tu orde- 
nador (la encontrarás en el Manual del 
Usuario): cambia en consonancia el 
valor de N en la línea 30. 

La escala para los valores del eje Y 
se obtiene multiplicándolos por un 
factor, teniendo en cuenta el espacio 
que necesitas para el texto que acom- 
pañará el gráfico. Este valor se entra 
automáticamente, pero es leído, 
READ (línea 40), de la sentencia 
DATA (línea 3000). En este punto, 
puede que te tiente escribir una breve 
rutina para entrar, INPUT, este valor 
en la línea 40. Si sabes cómo hacerlo, 
borra ía línea 3000; de otra manera, 
ésta será el primer tramo de datos que 
será dibujado, en lugar del primer nú- 
mero contenido en la línea 3010. 

El resto del programa comprende 
dos rutinas, una para dibujar los ejes 
y otra para dibujar las barras. Escribe 
esta parte del programa, pero no la 
ejecutes (RUN), porque recibirás un 
mensaje de error si el ordenador no 
encuentra las rutinas que han sido lla- 
madas: 

100 GOSUB 1000 
110 FOR T=l TO N 
130 X=(T-1)*DX+11 
140 GOSUB 2000 
150 NEXTT 
160 GOTO 160 

La línea 100 bifurca el programa a 
la rutina que dibuja los ejes, y la línea 
110 agota el número de barras que han 
de dibujarse. Por cada vuelta del bu- 
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ele, la linea 130 da escala a la coor- 
denada X correspondiente a la barra 
que se va a trazar (*DX) y añade un 
offset (un 11 en el Commodore 64) 
para dejar un margen en el eje Y, La 
línea 140 lleva el programa a la su b ru- 
tina que dibuja las barras, y la línea 
150 pasa al siguiente incremento del 
contador del bucle. 



APARECEN LAS BARRAS 

Entra ahora las rutinas que dibujan 
los ejes y trazan las barras: 

1000 LINE 10,0,10, 181 f 3:LINE 
10,181,160,181, 
3 

1050 FOR T = TO 10 
1060 TEXT 0,180-1*18, 

MID$<STR$(T),2U, 

12 

1070 NEXTT 

1080 RETURN 

2000 CO=CO+l:lF CO>3 

THENCO=l 
2010 BLOCKX,180-A(T)*DY, 

X + DX-1,180, 

CO 

2060 RETURN 

Para dibujar los ejes, esta parte del 
programa mueve el cursor a la iz- 
quierda de la pantalla arriba, reser- 
vando margen y la línea 1000 dibuja el 
eje Y. 

La misma línea dibuja el eje X a 
partir del cabo inferior del eje Y y ha- 
cia la derecha de la pantalla. 

Las líneas de la 1050 y a la 1070 es- 
tablecen un bucle con números del 
al 10 y los imprime a lo largo del eje 
Y. El resto del programa establece co- 
lores alternantes (línea 200) para las 
barras. 

La línea 2010 las dibuja. 



TRES DIMENSIONES 

Cuando ejecutes este programa, no- 
tarás que el diagrama de barras resulta 
de una apariencia muy poco escolar 
pero que gana en atractivo a cualquier 
representación lineal, a pesar de que 
ambos se basen en los mismos datos. 
Pues bien, todavía se puede realzar la 



visualización de la información pre- 
sentándola en tres dimensiones. Esto 
posibilita un buen uso del color y una 
figura sólida y natural. 

Antes de desarrollar el siguiente 
programa, guarda lo que ya has escrito 
(para saber lo que tienes) y, sin hacer 
un NEW o un BREAK, introduce los 
siguientes cambios. Debes saber edi- 
tar las facilidades de tu ordenador 
para hacer los cambios y ahorrarte es- 
fuerzos, pero sobre todo asegúrate de 
que no cometes errores dejando pasar 
pequeñas diferencias en las líneas del 
listado. 

2010 BLOCKX,180-A(T)*DY, 
X+(DX*.5)-1,180,CO 

No ejecutes el programa ahora, tai 
como está, puesto que no está com- 
pleto y lo único que vas a conseguir es 
un mensaje de error. Las alteraciones 
que acabas de hacer establecen algu- 
nas variables y los comandos adicio- 
nales para dibujar en la dirección Z, 
la tercera dimensión. Para completar 
el programa entra las siguientes líneas 
y ejecútalo (RUN). 

1010 LINE 10 + DX*.5,0 f 
10+DX*. 5,181, 
3 

1020 FOR Z=18 TO 180 
STEP18 

1030 LINE 10,Z,10 + DX*.5,Z-5 f 
1 

1040 NEXT 
1050 FOR T=0 TO 10 
2020 FOR N = TO DX*. 
5-1 

2030 LINE X+N, 180-A(T)*DY-1, 
N+X+(DX*,5)-1,180- 
A(T)*DY-5,1 

2040 NEXT 

2050 LINE X+(DX*,5)-1 + N, 180- 
A(T)*DY-5,X+(DX*.5)- 
1 + N J 180 I CO 

Ahora ya debes tener sobre tu pan- 
talla una espléndida representación en 
tres dimensiones de tus datos. Es un 
útil ejercicio cambiar los valores de los 
comandos del color para seleccionar 
aquellos que a ti más te gustan. Anota 
seguidamente aquellas líneas que ha- 



brás de cambiar para alterar la escala 
del gráfico, de modo que las tengas 
siempre a mano cuando vayas a utili- 
zar el programa en un futuro. La 
forma más sencilla de hacer notas es 
mediante sentencias REM. Por ejem- 
plo, puedes añadir una nueva línea 
que contenga una sentencia REM se- 
guida de una línea alternativa, que in- 
cluye su número y el comando corres- 
pondiente. 
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TARTAS 



-.a manera igualmente atractiva 
representar gráficamente la infor- 
ín es el diagrama de tarta. Se 
de un gráfico circular donde se 
una única coordenada (polar) 
i cada tipo de datos. El tamaño de 
división está representado por un 
alo. 

--u estructura, el programa que 





dibuja una tarta es de lo más sencillo, 
pero nosotros lo hemos complicado un 
poco para que lo puedas utilizar con 
facilidad. 

Entralo y ejecútalo (RUN) si quie- 
res ver cómo funciona: 

10 DIM A(100),P(100) 

20 PRINT "[SH IFT + CLR/HOME 

][CTRL + 8]":C0L0UR 0,0 
40 PRINT AT(17, 10)"MENU" 
40 PRINT 

TAB(10)"[CTRL + 2][CRSR 

ABAJ011: ENTRADA DE 

DATOS" 
60 PRINT TAB{10)"2: VER 

DIAGRAMA" 
70 PRINT TAB(10)"3: FIN DE 

PROGRAMA" 
80 GET G$:G=VAL(G$):IF G<1 

OR G>3 THEN80 
90 ON G GOSUB 200,400, 

600 
100 GOTO 20 
200 PRINT 

"[SH IFT+CLR/HOME]" 

:N = 

210 A$"":PRINT "VALOR N.", 
N + 1,:INPUT A$:IF A$ = "" 
OR VAL{A$) = 
THENRETURN 
220 N = N + 1:A(N) = 

VAL(A$) 
230 IF N<31 THEN 

210 
240 RETURN 
400 IF N = THEN 
RETURN 




405 PRINT "[SHI FT+CLR/HOM 

E]":COLOUR 1,1:HIRES0, 

1:MULTI2,4,6 
410 TT=0:FOR T=l TO 

N:TT=TT+A(T): 

NEXT 

420 RT = 0:FOR T=l TO N:RT 
= RT + A(T):P(T) = RT/TT:NE 
XT T 

430 CO=1:P(0)=-1: 
N = 

450 FOR T=0 TO 2*EXEC 

STEP.01 
460 IFT>2*EXEC *P(N) 

THENN = N + 1:C0 = C0+1:IF 

C0>3 THENCO 

= 1 

470 UNE 80,100, 
80 + 40*SIN(T), 
100 + 50*COST(T), 
CO 

480 NEXT T:L1NE 80,100,80, 

150,0 
490 PAUSE 15:NRM : 

RETURN 

600 PRINT "[SHIFT + CLR/HOM 
E][CTRL+1]":NRM :COLO 
UR 6,1 



DESCRIPCION DEL PROGRAMA 

Cuando hayas ejecutado este pro- 
grama, verás primero un menú. Es lo 
que imprime (PRINT) las líneas 40 a 
70 y te permite entrar los datos, ver el 
diagrama o finalizar el programa. La 
línea 80 espera a que aprietes una te- 
cla; puede ser cualquiera (salvo las 
que restauran la memoria), aunque 
sólo 1, 2 y 3 hacen desaparecer el 
menú. Esto es lo que consigue el IF ... 
THEN establecido en la línea 80. Una 
condición semejante situada en la lí- 
nea 400 hace que el programa vuelva 
al menú si aprietas 2 sin entrar ningún 
dato. 

Y si pruebas a pulsar 3 finalizas el 
programa. 

Si quieres que trabaje de nuevo, ha- 
brás de recurrir al RUN. 

Para empezar, lo más obvio es que 
elijas 1, que lleva el programa hasta 
una rutina de entrada de datos. La lí- 
nea 90 calcula la línea actual a la que 
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debe dirigirse el programa, la cual en 
este caso es la línea 200. Esta esta- 
blece la variable (N) de los datos, que 
vamos entrando (INPUT) en la línea 
210 y almacenándolos mediante la 220 
en una tabla que quedó dimensionada 
en la línea 10. 

Para entrar los datos, escribe los nú- 
meros seguidos de RETURN. La lí- 
nea 230 comprueba sí has introducido 
todos los datos cuyo espacio fue re- 
servado en la línea 10. Si no es así, el 
programa hace un bucle y vuelve a la 
línea 210 para entrar el siguiente dato. 
Observa que no necesitas llenar todo 
el espacio reservado; si, por ejemplo, 
sólo deseas una tarta dividida en cinco 
porciones, habrás de pulsar RETURN 
dos veces una vez introducido el 
quinto tipo de datos. La línea 100 
lleva, entonces, el programa a la ru- 
tina que visualiza el menú. Ahora 
bien, si tus datos llenan completa- 
mente el espacio reservado, la línea 
240 enviará automáticamente el pro- 
grama al menú, por lo que no podrás 
nunca rebasar la capacidad de la tabla. 



AOUI TIENES LA TARTA 

Si ahora pulsas 2, el programa va a 
la línea 400, que inicia la rutina que 
dibuja la tarta. La línea 410 hace un 
bucle para los datos y sus totales. El 
resto de la rutina determina la escala 
para éstos y dibu ja el gráfico. Repasa, 
si quieres enterarte bien, lo que ya se 
ha publicado en INPUT sobre el modo 
de tratar las funciones circulares. 

La línea 420 hace un bucle para los 
datos entrados, obteniendo el subtotal 
de éstos en cada pasada y divide el 
subtotal por el total de los datos. Estos 
subtotales ya a escala se almacenan en 
la tabla P () dimensionada en la línea 
10. La línea 430 restaura algunas va- 
riables que ayudan la secuencia de co- 
lores de las porciones de la tarta. Las 
líneas 450 a 480 dividen la tarta, se- 
leccionan el color de cada sección y di- 
bujan los radios a colores para rellenar 
cada sección. La línea 490 establece 
un breve retardo para que el gráfico se 
haga visible, cambia después el modo 
y vuelve al menú. La línea 600 es una 
rutina aparte, que pone la visualiza- 
ción en normal. 



PROGRAMA MULTIGESTION (y III) 

A continuación publicamos ei resto del programa Multigestión que, por razones de espacio, no se 

publicó completo en el número anterior de INPUT. 

1515 NEXT Y 

1520 NEXT X 

1525 CLOSE liRETURN 

1530 REM ***** 'LOAD' PROGRAMAS ***** 

1535 OPEN 1,1,0,'TECOM C64" 

1540 FOR F = TO 100 

1545 FOR E = TO 8 

1550 INPUT#1,C$(F,E):IF C$(F,E) = "-" THENC$(F,E,) = " " 

1555 NEXT E 

1560 NEXT F 

1565 FOR A=0 TO 100 

1570 FOR B = TO 4 

1575 INPUT#1,S$(A,B):IF S$(A,B)-"-" THENS$(A,B)" " 

1580 NEXT B 

1585 NEXT A 

1590 FOR X = TO 100 

1595 FOR Y = TO 1 

1600 INPUT#1,C0:F0R 1=1 TO CO:FOR ZZ=1 TO 4:INPUT#1,D$(ZZ,Z) 

1605 NEXT ZZ,Z 

1610 INPUT#1,T$(X,Y):IF T$(X,Y) = "-" THENT${X,Y) = " " 

1615 NEXT Y 

1620 N'EXTX 

1625 CLOSE 1 :RETURN 

1630 PRINT "[SHIFT+CLR/HOME]":POKE 53272, 21:POKE 53280, 0:POKE 53281,0 

1635 PRINT "[SHIFT+CLR/HOME][3*CRSRABAJO]"TAB(10)"[CTRL+9]*****[2ESPACIOS]MENU[ 

2 ESPACIOS] *****":PR!NTTAB( 10) "[CTRL + 6][2*CRSRABAJO]l. ENTRAR DATOS" 

1640 PRINT TAB(10)"[CRSR ABAJOJ2.VER DATOS":PRINT TAB(10)"[CRSR ABAJO]3. GUARDAR 

EN CINTA" 

1645 PRINT TAB(10)"[CRSR ABAJOJ4. CARGAR DESDE CINTA":PRINT TAB(10)"[CRSR ABAJO] 5 
OPCION IMPRESORA" 

• 1650 PRINT TAB(10)"[CRSR ABAJO]6. ALTERAR DATOS":PRINT TAB(10)"[CRSR ABAJO]7. MENU 
PRINCIPAL" 

1655 PRINT TAB(10)"[ 2*CRSR ABAJ0][CTRL+9] ESCOGE LA OPCION " 

1660 GET K$:IF VAL (K$)<1 OR VAL (K$)>7 THEN1660 

1665 C$ = " ":KK$ = K$;IF K$ = "l" THENGOTO 1860 

1670 IF K$ = "2" THENGOSUB 1825:GOTO 1935 

1675 IF K$ = "3" THENGOSUB 1440 

1680 IF K$ = "4" THENGOSUB 1530 

1685 IF K$ = "5" THENPRINT "[SHIFT+CLR/HOME]":GOSUB 1915 

1690 IF K$ = "6" AND CO<>0 THENC$ = "S":CQ= 1 :QQ$ = D$(4, l):GOTO 1705 

1695 IF K$ = "7" THEN555 

1700 GOTO 1635 

1705 CC = 0:C1 = 

1710 PRINT "LSH IFT+CLR/HOM E]f 2*CRSR ABAJO]":IF C$ = "S" THENPRINT 
TAB(1 l)"LCTRL + 9] ENTRADA NUMERO"CQ 
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1715 PRINT "|CRSRABAJ0]"TAB(1/-(LEN(A$(VAL(QQ$)))*.5))A$(VAL(QQ$)) 

1720 PRINT"[CRSRABAJ0][CTRL+6] ■ "; 

1725 PRINT"[2ESPACIOS]FECHA[2ESPACIOS][SHIFT+B][3ESPACIOS]CONCEPTOI3ESPACIOS] 
[SHIFT + B][3ESPACI0S]CANTIDAD" 

1730 PRINT"—- ":SC=2) 

1735 IF C$="S" THENC1=CQ:G0SUB 1790:GOTO 2020 

1740 C1 = C1 + 1:IF D$(A,C1) = QQ$ THENGOSUB 1790: FF PR$="N" THENSC = SC+1 
1745 IF SC = >10 THENSC=0:GOSUB 2005:PRINT "[SH IFT+CLR/HOME] f 5*CRSR ABAJO]" 
1750 IF Cl=400 OR VAL(D$(4.,C1))=0 THEN1760 
1755 GOTO 1735 

1760 C1=0:FOR Z=l TO 8:N(Z) = 0:NEXT :FR = 

1765 C1=C1 + 1:IF Cl = >400 OR VAL (D$(4,CD)=0 THENRETURN 

1770 IFVAL(D$(4,C1))=VAL(QQ$)THENN(VAL(QQ$)) = N{VAL(QQ$)) + VAL(D${3,CD) 

1775 IFVAL(D$(4,C1)) = 8ANDVAL(QQ$) = 8THEN1765 

1780 IFVAL(D$(4,C1))<>8THENFR = FR + VAL(D$(3,CD) 

1785 GOTO 1765 

1790 PRINT LEFT$ (D$ (l,Cl) + "[ 19 ESPACIOS]", 9)"[SHIFT+B]"; 
1795 PRINT LEFT$ (D$ (2,Cl)+"[ 19 ESPACI0S]",14)"[SHIFT+B]" ; 
1800 VV$ = D$(3,C1):TA=14 

1805 VV=VAL(VV$):IF VV-INT (VV)=0 THENVV$ = STR$(VV) + ".00" 
1810 IF MID$(VV$,LEN(VV$)-1,1) = "." THENVV$=VV$ + "0" 
1815 PRINT RIGHT$("[16 ESPACIOS]"+VV$,TA) 
1820 RETURN 

1825 PRINT "[SHIFT+CLR/HOMEH 6*CRSR ABAJO]" 

1830 PRINTTAB(10)"[CTRL + 9][5ESPACIOS]CATEGORIA|6ESPACIOS][CRSRABAJO]ICTRL + 6]": 
POKE198.0 

1835 FOR Z=l TO 8:PRINT TAB(9)Z": "A$(Z):NEXT 

1840 PRINT TAB(10)"[CRSR ABAJO][CTRL+9][ 2 ESPACIOS]ESCRI BE OPCION 

?[SHIFT+ESPACIO]" 
1845 GET K$:IF (VAL {K$)<1 OR VAL(K$)>8) AND K$<>CHR$(13) THEN1845 
1850 IF K$ = CHR$(13) AND KK$="1" THEN1845 
1855 PRINT "[SHIFT+CLR/HOME]":QQ$=K$:RETURN 
1860 IF K$ = CHR$(13) THENCO-CO-1 :GOTO 1635 
1865 CO = CO+l:IF CO>400 THENCO=400:GOTO 1635 
1870 Cl=CO:D$(l,Cl) = " " 

1875 PRINT "[SHIFT+CLR/HOMEH 2*CRSR ABAJO]":IF C$o"S" THENPRINT "PULSA RETURN 

EN CAMPO DE FECHA PARA MENU" 
1880 INPUT "t 3*CRSR ABAJO][ 2 ESPACI0S]FECHA";D$(1,C1):IF D$(1,C1) = " " 

THENK$=CHR$(13):G0T0 1860 
1885 INPUT "[CRSR ABAJO][ 2 ESPACIOS1ESCRIBE EL ARTICUL0[CTRL+6]";D$(2,C1) 
1890 INPUT"[CRSRABAJO][2ESPACIOS]ESCRIBELACANTIDAD[CTRL + 6]";D$(3,C1):GOSUB1825 

1895 IF QQ$oCHR$(13) THEND$(4,C1) = QQ$ 
1900 IF QQ$ = CHR$(13) THEN1635 
1905 IF C$ = "S" THENQQ$ = D$(4,CQ):G0T0 1705 
1910 GOTO 1860 

1915 PRINT "[SHIFT+CLR/HOME]"TAB(5)"[ 4*CRSR ABAJO]QU!ERES IMPRIMIR? (S/N)" 

1920 GET K$:IF K$="S" TH EN PR$=S": RETURN 

1925 IF K$="N" THENPR$="N": RETURN 

1930 GOTO 1915 

1935 IF K$=CHR$(13) THEN1635 

1940 IF PR$ = "S" THENOPEN 4,4:CMD 4 
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1945 GOSUB 1705:PRINT " [CTRL+6]" 

1950 VV$ = STR$(N(VAL{QQ$))) 

1955 PRINT TAB(18)"TOTAL :";:TA=12:GOSUB 1805 

1960 PRINT "[CTRL+6] : " 

1965 PRINT TAB(1 1)"[CRSR ABAJOHCTRL+61GASTOS TOTAL :";:TA=12 
1970 VV$=STR${FR):GOSUB 1805:VV$=STR$(N(VAL(QQ$))-FR) 

1975 IF QQ$ = "8" THENPRINT TAB<16)"[CTRL+6][CRSR ABAJO]BALANCE :";:TA=12 ; GOSUB 1805 

1980 IF PR$ = "S" THENPRINT#4,CHR$(13):CLOSE 4 

1985 GOSUB 2060:K$ = "2":POKE 198,0 

1990 GET W$:IF W$ = " " THEN1990 

1995 IF W$="S" THENGOSUB 1805:GOTO 1935 

2000 GOTO 1665 

2005 PRINT TABÜD'T 2*CRSR ABAJOKPULSA UNA TECLA PARA CONTINUAR) [CTRL+6]":POKE 

198,0: WAIT198.1 
2010 PRINT "[SHIFT+CLR/HOMEH 6*CRSR ABAJO]"; 
2015 FOR Z=l TO 4:PRINT "[ 39 ESPACIOS]":NEXT :RETURN 

2020 PRINT"[CRSRABAJO](,)PARAIRHACIAATRAS(.)PARAADELANTE[10ESPACIOS][CRSR ABAJO] 

'SPC'PARACAMBIAR" 
2025 GETP$:IFP$ = " "THEN2025 
2030 IF P$=CHR$(13) THEN1635 
2035 IF P$=CHR$(32) THEN1875 

2040 IF P$="." THENCQ=CQ+1:IF CQ>CO THENCQ=CO 
2045 IF P$ = "," THENCQ=CQ-1:IF CQ<1 THENCQ=1 
2050 IF P$=" p " OR P$="." THENQQ$ = D$(4,CQ):G0T0 1705 
2055 GOTO 2025 

2060 PRINT "[CRSR ABAJO]PULSA UNA TECLA PARA SEGUIR O <RETURN>":PRINT "PARA IR AL 

MENU" 
2065 RETURN 
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GOLPES Y PORRAZOS 



Muchos de los juegos de acción que 
más récords de ventas han batido se 
basan en este tipo de juego: tu 
palanca se convertirá en una especie 
de antebrazo que será el que dé y 
reciba ios porrazos. El ordenador se 
convertirá en el instrumento que 
recibirá todos los golpes, y que te 
permitirá luchar a muerte, dando y 
recibiendo hasta que te duelan las 
manos de tanto darle marcha al 
joystick. 

A todos aquellos que, cuando 
visionan una película de BRUCE 
LEE o de JACKIE CHANG se 
quedan pensativos, estos juegos les 
permitirán ponerse en la piel de sus 
héroes favoritos. 
Cabe mencionar que es bastante 
evidente que los juegos de ARTES 
MARCIALES suelen ser más 
atractivos, ya que caben escenarios 
más exóticos, golpes más 
extravagantes y sonidos tan 
est re mecedores como el KIAI !!! 
Quizás por eso suelen parecer más 
monótonos los juegos de lucha libre 
o de boxeo que las aventuras 
orientales con ninjas, guerreros y 
estrellas de la muerte. 

BOXEO 



BARRY MAC GUiGAN 
CHAMPfONSHIP 

Sin duda uno de los primeros boxeos 
que salió al mercado fue el BARRY 
MAC GUIGAN. En él se perfilaban 
ya las características que iban a tener 
los sucesores: el ángulo de la pista, 
la elección de entre diferentes 
características de jugadores, la 
posibilidad de múltiples cambios en 
la vestimenta y la posibilidad de 
entrenamientos. 
Lamentablemente, en tema de 
juegos el que innova un concepto, y 
sin duda alguna éste es el caso, paga 
las consecuencias con un menor 
grado de detalle y, a menudo, el 



esfuerzo creativo se ve 
posteriormente «recompensado» por 
un alto grado de plagio posterior. 
En el BARRY podrás elegir de entre 
varios tipos de peleones: desde el 
tipo BULLDOG (para los más 
bestias) hasta el estilo bailarín para 
los contrincantes de tipo técnico que 
amen los rápidos juegos de piernas. 
El juego incluye la posibilidad de 
entrenamiento intensivo en una sala 
de entrenamiento en la que podrás 
pasarte varias horas trabajando el 
saco de serrín o bien usar la cuerda 
para aumentar la velocidad de 
piernas y hacer abdominales. Tras 
todo esto llega la definitiva pelea: 
aparecerá en la parte inferior de la 
pantalla el GONG, el ring visto 
desde uno de los laterales, las 
puntuaciones de los diferentes 
contrincantes, el tiempo que queda 
hasta el final del juego, etc. Existen 
siete tipos de golpes: cinco tipos de 
ataques y dos tipos de defensa. Los 
ataques incluyen desde el uppercut 
hasta un velocísimo golpe de 
izquierda a los abdominales del 
contrario. Las defensas son menos 
variadas pero no por ello menos 
prácticas: guardia alta y retroceso. 
La velocidad de desplazamiento por 




la pista podría ser un poco más 
rápida y quizás sea ésta la única 
característica que entorpezca un 
tanto el juego. Que en todo lo 
demás debe, sin duda, formar parte 
de una ludoteca que se precie. 
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FRANK BRUNO'S BOXING 

FRANK BRUNO'S BOXING fue 
uno de los programas que mayor 
expectación causaron en el público.., 
Entre las características anunciadas 
hallaban las posibilidades de ser 
contrincante de varios jugadores de 

Jas las nacionalidades posibles. 
RAVIOLI era el representante 
taliano, BRUTOVSKI era el 
representante de la UNION 
SOVIETICA, etc.. El juego no da 
pie a contemplaciones ni 
entrenamientos, así que se perfila el 
final de la carga, suena el gong y 
empieza la pelea. El primero de tus 
oponentes es un canadiense que 
parece muy duro de pelar; ojo con la 

ira porque te la puede poner a 
. ladras. En definitiva, no es tan 
rápido como podía parecer a primera 
vista y seguro que puedes con él. 
Las peleas se resuelven al cabo de 

ss minutos de combate sin ningún 
tipo de apelación, y hay tres 
combates. Estos se suceden uno tras 
otro hasta que alcances la cima del 
. tmpeonato del mundo. Como te 

.-edes imaginar, el nivel de 
dificultad sube con cada 
contrincante: FRENCHIE el francés 
\ TRIBAL el africano (con el hueso 




en la nariz) son un auténtico hueso. 
Más hueso es, sin duda, el 
contrincante RAVIOLI MAFIOSI 
que, como su nombre indica, es un 
mafioso con cara de pocos amigos, y 
que lanza golpes diestros y todo lo 
sucios que se le puedan imaginar 
sobre la marcha. Cada jugador tiene 
un nombre asociado a la «facha» y 
nacionalidad. 

Las posibilidades gráficas del 
ordenador están bien aprovechadas: 
verás en la parte superior 
izquierda y derecha las 
caras de los 

contrincantes: debajo de 
la pantalla se hallan los 
indicadores de fuerza de 
los oponentes y una vista 
parcial del ring (sólo uno 
de los lados de las cuerdas). 



El último de los contrincantes es 
PETER EL PERFECTO, que es, 
sin duda, mucho más fuerte que los 
contrincantes anteriores: deberás 
manejar a la perfección el uppercut y 
cuidarte de no perder uno solo de los 
descuidos de tu contrincante para 
atizarle. OJO !!! porque en cuanto te 
enganche verás que no te dejará salir 
vivo del cuadrilátero. 
Lo único que se puede echar 
de menos en este programa es que se 
pierda gran parte de la 
visión de juego por el 
tan peculiar ángulo de 
visión que han 
seleccionado los 
programadores. Y el 
peculiar manejo a que 
obliga el juego desde los 
distintos ángulos. 
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BLACK BELT 

BLACK BELT: cinturón negro. Sin 
duda, el primer programa que salió 
al mercado referente al tema que nos 
ocupa. ¡Los gráficos no eran lo que 
más resaltaba de este programa! 
Quizás por esto nunca llegó a 
aparecer en nuestro país. Tal vez la 
característica más relevante de este 
programa sea que permite crear una 
base de datos de características del 
jugador que tiene en cuenta todos 
los combales anteriormente 
realizados. Y como no todos somos 
iguales, podrás elegir el cinturón que 
corresponde a tu nivel de 
conocimientos o ambiciones. 
El orden de los cinturones es el 
siguiente: blanco, amarillo, verde, 
azul, rojo y negro. Como el 
programador era consecuente, cada 
color se corresponde con un nivel de 
juego, y hay una serie de patadas 
que te serán imposibles en los niveles 
de conocimientos más bajos. 
Concretamente, si quieres practicar 
el golpe que sale mucho en la 
película de KARATE que consiste 
en correr y saltar dando una patada, 
te será necesario correr el riesgo de 
coger el cinturón rojo. 
Relacionado con el sistema de 
puntuación existe otra particularidad. 
Un arbitro en pantalla computa los 
tantos que se hacen. Esta puntuación 
te será otorgada según el grado de 
dificultad y la ejecución del golpe: 



así serán distintos un golpe fácil bien 
ejecutado que uno difícil ejecutado a 
medias. El programa dará puntos al 
contrincante que logre evitar el 
golpe. 

El árbitro es muy estricto y no te 
dejará pasar ni una sola falta de los 
reglamentos. 






Aparte de esto, quizás lo que más se 
eche de menos sea la animación, que 
es algo pobre, y mucho más el 
sonido, que recuerda muy vagamente 
al de los golpes. 



EXPLODING FIST 

No podía faltar en nuestro recorrido 
el EXPLODING FIST, el juego de 
estrellato indiscutible que lanzó a la 
fama para , 
siempre a la 
MELBÜURNE 
y que en 
ESPAÑA 
batió todo tipo 
de records. 
Lo más 
atractivo de 
EXPLODING 
es que en la 
¿poca en que 
apareció 
supuso un 
extraordinario 
avance en 



la animación de los sprites. El 
desplazamiento de tu hombre es 
perfecto. Los pasos son lentos o 
rápidos a voluntad del joystick. Los 
movimientos son ultraprecisos y te 
permitirán realizar múltiples 
acrobacias y piruetas con el fin de 
que tu oscuro oponente vaya a 
moder el polvo. 

El marcado carácter bélico de este 
juego queda patente cuando se sabe 
que de los 15 movimientos 
contemplados 11 son de golpes, y 
sólo 4 de dirección (derecha, 
izquierda, salto adelante y atrás). 
Todo esto conlleva un serio 
problema de manejo de palanca que 
podrás resolver optando por la 
opción PRACTICE del juego que te 
permitirá entrenarte hasta que te 
sientas ya capaz de enfrentarte con 
los tipos en la arena. Debes ser de lo 
más exquisito en el juego, ya que 
puedes correr el riesgo de que, aun 
ganando a tu adversarrio, el juez 
omnipresente te anule el combate 
por FULLERO. Para pasar de 
combate en combate deberás marcar 
tres tantos a tu adversario; el 
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arcador tiene vocación de oriental, 
que es la representación del 
bolo del YING-YANG. Los 
bates siempre cambian de Jugar y 
as desfilar desde playas desiertas 
tanplos deshabitados hasta salas de 
ibate o entrenamiento, 
sonido tampoco estaba 
preciado en este juego: cada 
pe bien dado está recompensado 

un grito inhumano de las 
•uces» del televisor. ¡Superrealista! 



Son seis los niveles de dificultad que 
tiene este juego. Aquí todo lo 
superfluo está eliminado: no se 
puede cambiar el color de] pantalón^ 
ni tampoco los guantes; aquí no hace 
falta, ya que lo único importante es 
que empiece cuanto antes el 
combate. Los oponentes se 
distinguen por el color de los 
calzones. La pantalla de presentación 
recuerda algo a la del FRANK 
BRUNO S BOXING: los dos 




>!AI BOXING 

; i AI BOXING es uno de los 

mos títulos que han salido al 
:rcado de este tipo de juegos. Los 
,HAI son luchadores que usan tanto 
;nicas dignas del más puro estilo 
KARATE junto con técnicas 
pias de! boxeo. En definitiva, se 
la de una especie de FULL 
ONTACT: los luchadores llevan 
Halones largos y guantes de 
eo. A decir de los que practican 
te deporte, es uno de los más 
ros que existen. 



contrincantes aparecen en la parte 
superior junto a los indicadores de 
fuerza o resistencia. Realmente 
resulta trágica esta forma de 



presentación, ya que a diferencia del 
Frank Bruno's, en el que los retratos 
sólo tienen una «dudosa» (por lo 
feos que son) función estética, aquí 
estos retratos son el auténtico 
indicador del estado de tu jugador y 
del oponente: verás que cuando te 
hayan «colocado» cuatro o cinco 
«galletas THAI» una fina gota de 
sangre bajará por tus mejillas. 
Conforme vaya habiendo más golpes 
y golpes, la cara se irá 
ensangrentando; parecerá que los 
ojos han desaparecido bajo los 
golpes y así hasta que tengas ganas 
de tirar la toalla... Pero esto no es 
ROCKY, y aquí no es posible: o 
ganas o pierdes. Y si ganas, la 
recompensa es que pasas a la 
siguiente fase de juego. Cambiando 
el port del joystick podrás optar por 
uno u otro jugador. Son, en total, 16 
las acciones que contempla este 
juego. Están incluidas las patatas y 
puñetazos a todas las alturas, 
protecciones, etc... En suma, un 
excelente juego de combate que hará 
las delicias de los que amen los 
juegos rápidos, ya que éste es quizás 
el más -rápido de todos los juegos de 
combate que os hemos presentado 
hasta ahora. Pero aún habrán más, 
no os creáis!!! 
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NINJA 

NINJA no podía faltar en nuestra 
selección de programas de lacha. 
Como siempre, se trata de salvar a la 
mujer de tus sueños (princesa 
oriental, por más señas), raptada por 
los pérfidos esbirros del mal, 
personificado este último por algún 
alto capitoste de la mafia asiática. 
Como muchos de los numerosos 
juegos de MASTERTRONIC, 
aunque a primera vista parezca un 
poco lento, posee una altísima 
adiecíón: las fases se suceden lo 
bastante rápido como para quedarse 
«enganchado» al joystick una 
«eternidad». 

Tenemos en nuestro poder las armas 
típicas de los NINJA: nuestros puños 
de acero «inoxidable» para combates 
cuerpo a cuerpo, la espada y daga 
destructoras para segar cabezas de 
indeseables enemigos, y, por último, 
las letales shaken, estrellas 
portadoras de la muerte, para barrer 
y masacrar a distancia, que te 
ayudarán en tu periplo por los 
senderos luminosos de la venganza. 
Los recintos por los que tendremos 
que pasar son, en su totalidad, 20, 
de dificultad creciente y en las que 
nos encontramos con una inmensa 
troupe de oponentes, dotados con 




toda clase de armas y pericia. 
En cuanto a los gráficos, abundancia 
y profusión son los adjetivos más 
adecuados para definirlos. El scroll 
es rapidísimo, aunque con ligeras 
imperfecciones en algunas partes del 
escenario, y los sprites impecables. 
El color tampoco deja nada que 
desear, y el sonido, modesto en 
comparación con los demás 
conceptos, es aceptable. 
Teniendo en cuenta todo lo que 



hemos dicho, sólo cabe una 
conclusión: estamos ante un 
programa excelente. 
Por otra parte, no os costará mucho 
haceros con el desde las primeras 
partidas, pues el nivel de dificultad 
no es muy alto, y además, las 
informaciones que aparecen en la 
pantalla os pueden dar en todo 
momento una idea exacta de vuestra 
situación. 
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Software 




SOFTACTUALIDAD 



CHAMPIONSHIP 
FOOTBALL 

jasa es GAMESTAR, el 
programa tiene un antecedente 

raordinario: el TWO ON TWO 
que tuvo la acogida que todos 
conocéis. Esta vez se trata de un 

uloso FOOTBALL 
IMERICANO, y aunque no sea 
'-estro deporte nacional bien vale la 
pena jugar a esta fabulosa emulación 
en ía que parece que los jugadores 
silen de la pantalla cuando hacen un 
placage. Algunas jugadas son hasta 
ahora nunca vistas y los efectos 
icos son, simplemente, 
'inenales. 
Esperamos que la casa PROINSA, 
-je distribuyó anteriormente el 
TWO ON TWO, comercialice este 
'-evo título. 



fabuloso 
helicóptero 
dotado de 
unas 

características 
poco comunes 
y de una 
velocidad de 
vuelo y de una 
resistencia a toda prueba. 
Como siempre, el manual de 
instrucciones es de lo más completo 
y ta simulación, de un realismo 
extraordinario. Podrás seleccionar y 
modificar todos los parámetros, que 
incluyen desde los mapas, 
armamento de aparato.., jhasta el 
color del gorro del piloto! 
La visión es tridimensional y la 
velocidad de juego, realmente 




sorprendente. 
El programa es de una calidad 
gráfica excepcional. Tiene todos esos 
pequeños detalles que a veces pasan 
desapercibidos, pero que 
entusiasman a quienes saben reparar 
en ellos. El scroll es rápido y suave, 
las figuras más que desplazarse se 



GUNSHIP 

NSHIP es el último título de la 
prestigiosa casa MICROPROSE, 
especializada en todo tipo de 

-ulaciones; se trata esta vez de 
pilotar el llamado APACHE, un 



«deslizan», los objetos hacen sombra 
sobre la superficie del suelo, el 
diseño gráfico es minucioso y 
preciso... Podríamos seguir 
enumerando, pero creemos que ya 
hemos calificado los gráficos. 
En cuanto a lo demás, sólo podemos 
reseñar un aspecto poco positivo: se 
trata del argumento, excesivamente 
simplista, y del desarrollo de la 
acción, algo monótono. 
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KILLED UIMT1L 
DEAD 

Este es el último título de la 
prestigiosa casa norteamericana 
ACCOLADE, autora, entre otros, 
del famoso ACE OF AGES. Esta 
vez se trata de resolver un misterio 
tipo AGATHA CHRISTIE. Un 
asesinato, sospechosos, herencias, 
lugares insólitos y peligros 
innumerables y, ¡cómo no!, un final 
que, sin duda alguna, no desmerece 
de esta fabulosa casa de software que 
nos tiene acostumbrados a una 
calidad gráfica sin par. 
La acción transcurre en una serie de 
pantallas de desarrollo tridimensional 





i 
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La principal innovación que 
introduce este juego, pues la 
originalidad es uno de los factores 
que más hemos de valorar, es que las 
distintas pantallas de que se 
compone son interdependientes entre 
sí, es decir, no se trata de 
«habitaciones» que simplemente se 
comunican sin continuidad clara, 
separadas por tabiques, sino de un 
solo piano continuo sin partes 
aisladas. 

Por lo demás, el juego es un 
derroche de imaginación y de 
colorido que nos hará pasar 
muy buenos ratos sin que en 
ningún momento lleguemos a 
aburrirnos. 



que, aunque se parecen mucho entre 
sí, siempre encierran peligros 
diferentes. 

El nivel de dificultad es quizás 
demasiado alto, pero esto, lejos de 
restar interés al programa, 
contribuye a conseguir que no nos 
podamos separar de la pantalla hasta 
haber logrado algún pequeño éxito. 
No obstante, es muy probable que 
nos desesperemos un poco al 
principio. Es cuestión de voluntad. 
Al final de cada partida, podremos 
seguir nuestros progresos 
comprobando el nivel alcanzado en 
la tasa de «credibilidad del héroe», 



expresada en tantos por ciento. No 
está de más que te recordemos que 
la escritora británica Agatha Christie 
(18914976) constituye una de las 
cumbres de la novela policiaca, 
habiendo creado títulos tan 
estimulantes como clásicos como 
«Diez negritos», «El asesinato de 
Rogelio Ackroyd» y «Asesinato en el 
Orient Express», de los cuales se han 
hecho acertadas y lujosas 
adaptaciones cinematográficas que, 
seguro, habréis visto en la pantalla 
grande o disfrutado en la intimidad 
de vuestro hogar a través del video o 
de la lectura. 



INSPECTOR GADGET 

INSPECTOR GADGET es, sin 
duda, uno de los títulos que más 
expectativas ha creado en el 
mercado. La versión en nuestro 
micro es ligeramente posterior a la 
de otras máquinas pero, a juzgar por 
las fotografías, merecía la espera: 
para los que están hartos de ver 
cómo otro usa los 
GADGETOPA TINES, o bien el 
GADGETOBRAZO llegó el juego 
(sin duda único), que os permitirá 
tener toda la panoplia del famoso 
héroe televisivo. 
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FEUD 

• MASTERTRONIC - JUEGO 

E! mes pasado os hablamos en el 
apartado de actualidad de un 
fenomenal programa que este mes ha 
sido distribuido por DROSOFT en 
nuestro país. El programa están en 
línea de precio de 

MASTERTRONIC, aunque la casa 
que lo creó originalmente es 
BULLDOG. El argumento es 
relativamente sencillo: en la edad 
media dos magos (uno bueno y otro 
malo) pugnan por el control de una 
zona. La pugna se hace a base de 
numerosos hechizos. 




muy rápido, así que deberás ser veloz, 
sobre todo en lo que a búsqueda de 
ingredientes se refiere. Todos estos 
son vegetales que deberás coger y 
cortar con una hoz y mezclar con 
otros para crear conjuros. 



ANIMACION 


10 


INTERES 


8 


GRAFICOS 


10 


COLOR 


10 


SONIDO 


7 


TOTAL 


45 



Mi 



Los hechizos y conjuros son bastante 
fáciles de realizar, ya que basta 
acercarse al caldero, seleccionar de 
... lista de los 11 embrujamientos el 
que se quiere y, acto seguido, tomar 
bs ingredientes del libro. 
Los gráficos son quizás lo mejor del 

£go, aunque la animación no se 
queda corta, ya que este programa 
logra gran parte de su realismo por 

elección de los colores tanto de los 
rersonajes como de los escenarios. 
El juego está muy bien ambientado y 
_ debido ser fruto de un laborioso 
bajo: prueba de ello es que los 
lores han respetado la vestimenta 
la época. 

mago que tratará de eliminarte es 
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Vendo Interface copiador de cassette a 
cassette (copia con dos unidades lec- 
toras C2N) de uso personal en 3.000 
ptas. Vendo los programas origínales 
con sus instrucciones y cajas: Express 
Rider, Two on two, Skooldaze, Broad 
Street Decathlon, etc. Todos ellos en 
cinta a 400 ptas. c/u para C-64. José R. 
Díaz Glez. C/ Río Req.ueja.da, 2, 1 izq. 
33460 Llaranes. Asturias. TI: (985) 57 28 
31. 



Necesito las instrucciones en caste- 
llano de los siguientes juegos: Back to 
the Future, Eídoion, Mission Elevator, 
Strike forcé Cobra, Jack the Nipper, Sa- 
boteur, Master of Lamps. Si tienes al- 
guna escríbeme. Te las cambiaré por 
programas. Tengo casi 200. También 
vendo e intercambio. Juan Manuel 
Mínguez. C/ Independencia, 10, 2.° 
derch. 40002 Segovia. 



Vendo Commodore 128, joystick, 30 re- 
vistas, programas, manuales y libros 
por 50.000 ptas. y por 65.000 inclu- 
yendo DBASE II, Wordstar, Mbasic, Co- 
bo!, etc. Junto o por separado. Perfecto 
estado. José Marsá Mallol. TI: 352 98 
90 de 2 a 4 h. Barcelona 



Intercambio programas en cinta para el 
C-64. Dispongo de más de 400 títulos 
algunos de ellos últimas novedades. 
Prometo contestar a todos. Domingo 
Saura Ballester. C/ Exportador Ocam- 
pos, 3. Pozo Estrecho. Cartagena. Mur- 
cia. TI: (968) 55 64 57. 



Cambio juegos para el C-64. Tengo 
parte de las últimas novedades. Mán- 
dame tu lista. Pedro Lanchares Amo- 
res. C/ Avenida de Portugal; 16, 3.° B. 
24400 Ponferrada. León. 



Cambio juegos e instrucciones en cinta 
para el C-64. Tengo unos 450 de gran 
calidad. Escribe aunque tengas pocos. 



azoco 

Óscar Orallo. Plza. La Fortaleza, 11,4.° 
C. 24400 Ponferrada. León. 



Vendo ordenador Dragón 200, un mo- 
nitor color, 15 juegos, precio a conve- 
nir. Mercedes. Tel: (93) 230 40 57. 



Cambio, compro o vendo programas 
para el C-64, también me gustaría po- 
nerme en contacto con clubs informá- 
ticos. Iñaki Jiménez Carcavílla. C/ J. A t 
Fdez., 6, 6 o , D. 31500 Tudela. Navarra. 
TI: (948) 82 15 73. 



Vendo impresora CPA-80 con interface 
Commodore, con ocho meses, casi sin 
usar y maletín de papel continuo por 
45.000 ptas. José Feo. Espinosa Jurado. 
C/ Alfonso de Falencia, 11,5,°, D. 29007 
Málaga. TI: (952} 27 92 21. 



Vendo 5 juegos originales para el C-64 
(Summer Games II, Sky Fox, Sanxion, 
Two on Two, etc.). Baratísimos. Cam- 
bio juegos novedades. Pedro Gómez 
González. C/ Renedo, 14 1.° D. 47005 
Valladolid. TI: 21 13 82. 



Intercambio/vendo/compro juegos 
para el C-64. Poseo más de 500 todos 
de una gran calidad. La mayoría con 
turbo. Juegos como: Uridium, Com- 
mando, Green Beret, Rambo, Fist II, Int. 
Karate I y II, etc. David Tapias Monné. 
Sardá i Caílá, 7, 4.°-2. 3 . Reus. Tarra- 
gona. TI : 31 66 17/31 95 94 (a partir de 
las 20.30). 



Me gustaría ponerme en contacto con 
personas que tengan un C-64-128 de La 
Coruña, para intercambio de revistas, 
programas y trucos. Elia M. a Domín- 
guez. C/ Arenal, 29, 2.°. 15002 La Co- 
ruña. 



Urge vender C-64K a estrenar con ma- 
nuales, juegos, joystick y DATACAS- 
SETTE. Todo ello por 40.000 ptas. Lla- 
mar a partir de las 18 h. TI: (91 ) 250 18 
57. Juan Pablo Fdez. Conejo. P.° de la 
Habana, 190, 2.°, A. 28036 Madrid. 



Ofrezco 430 programas a cambio de 
una unidad de disco, también daría 
unas 6.000 ptas. Intercambio progra- 
mas para el C-64, tengo últimas nove- 
dades como Express Raider, Arkanoid, 
Skate Rock, etc. Asimismo me urge 
conseguir los programas Dasic Light- 
ning y Game Marker los compraría o 
cambiaría por juegos. Feo. Javier Mo- 
rante López. C/ Pompeu Fabra, 65, ático 
1. a . 08922. Santa Coloma de Gramanet. 
Barcelona. 



Cambio programas para C-64, en cinta 
o disco, poseo últimas novedades, 
José Luis Rodríguez. C/ Escultor Ordó- 



ñez, 15-23, 2-3 esc. A. 08016 Barcelona. 
TI: 340 39 27. 



Vendo C-64 (36.000 ptas.), Datassette 
(7.000 ptas.), F. Cartridge (8.500 ptas.), 
L M. para avanzados, L. M. para Com- 
modore, 54 interno, Diccionario 64, Ru- 
tinas 64, Guía del usuario, Lenguaje 
máquina, Gráficos y sonido, Progra- 
mación en lenguaje Pascal y algunos 
más (11.000 ptas.) y otras cosas más. 
Todo más juegos y utilidades (69,000 
ptas.). Josep Many. Canovelles. Barce- 
lona. TI: 849 38 52. 



Vendo Commodore C-1 28,1 571 Disk 
drive, Ríteman C+ y monitor color Dy- 
nadata 40/80 columnas con cables in- 
cluidos, todo en conjunto o por lotes, a 
parte de numerosos programas tanto 
en C-64, C-1 28 y CP/M mode: Marco A. 
Zamít Engo. Avda. País Vaíenciá, 45. 
46850 Ollería. Valencia. TI: (96) 220 01 
16 sólo mañanas. 



Vendo C-64 más unidad de disco 1541, 
Impresora MPS 802, cassette C2N, Lá- 
piz óptico, joystick. Vendo todo con 
procesador de textos, hoja de cálculo, 
Base de datos y programas gráficos... 
Además regalo muchos programas de 
juegos y utilidades, libros y revistas. 
Todo por 110,000 ptas. Santiago Gar- 
cía. Madrid. TI: (91) 202 32 01 de 14 a 
15 h y de 20.45 a 23.45 h. 



Vendo para el C-128 Compiladores de 
Cobol, lenguaje C y superbase para 
C-128, Vendo compiladores de Cobol, 
lenguaje C, Ada, Pascal y superbase 
(ninguno de los programas necesita 
usar CP/M.) Cobol o C a 25.000 ptas. 
Fernando J. Gallardo Romero. C/ Ve- 
tones, 9, 1.° Apdo. 315. 06800 Mérida. 
Badajoz. Ti: 31 07 92. 



Intercambio/vendo juegos tipo Caul- 
dron II, Deactivators, Fist II, Titanio y 
casi 400 por ei estilo. También vendo 
ínterfaces copiadores de cintas a 3.000 
cucas negociables. Contestaré a todos. 
Antonio Torrente. Polígono Cañelles B1 
D-8, 7°-3A 08033 Barcelona. TI: (93) 
427 47 99. 



Club para el C-64 CAMBIA 
MOS/VENDEMOS utilidades, progra- 
mas, etc. Tenemos últimas novedades: 
Enduro Racer, Gauntlet II, Arkanoid, 
etc. Admitimos nuevos socios. Ani- 
maos, José Luis Moreno Córdoba. C/ 
Rey, 89, 3.°, A. 28300 Aranjuez. Madrid. 



Club de usuarios de Spectrum, Com- 
modore. MSX e IBM hace ampliación 
de socios. Para poder participar es- 
cribe: KIMBO YAÑEZ. C/ Conca de 
Tremp, 83, 1.°-1A 08032 Barcelona. 
Porfa, envía un sello. 
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Cinco minutos antes decomprarun juego a 875^. 
■ Echale un vistazo a estos juegos de 875pta S . 




VERSION CASSETTE 



SO FTWARE 



ZAFIRO SOFTWARE DIVISION Paseo de la Castellana, 141. 28046 Madhd 
Tef 459 30 04, Tei Barna 209 33 65. Tele* 22690 ZAFIR E 



SIGUENOS EL JUEGO. 



